internette yabancı bir siteden buldum paylaşmak istiyorum
eklentiden dll dosyasını system32 içine atın
bat dosyası ile de kaydettirin
txt dosyasınıda çalışmanıza modül olarak akleyin
çalışmamın Command1_Click deki son hali aşağıdaki gibidir herkese saygılar

Dim dib As Long
Dim bOK As Long

Private Sub Command1_Click()
Form1.Hide
Sleep 200
DoEvents
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
Sleep 200
ScreenShot App.Path & "\screenshot.bmp"
DoEvents
dib = FreeImage_Load(FIF_BMP, App.Path & "\screenshot.bmp", 0)
DoEvents
bOK = FreeImage_Save(FIF_JPEG, dib, (Dir1.Path & "\" & Text1.Text) + ".jpeg", 0)
FreeImage_Unload (dib)
Form1.Show
Text1.SetFocus
End Sub