Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, 0, 0, 0) ' Hali hazırda bulunan ekranın fotoğrafını yakaladı
DoEvents ' Clipboarda Cekilen Resmin Kopyalanması icin Bilgisayarı beklet
SavePicture Clipboard.GetData(vbCFBitmap), "" & App.Path & "\EkranFoto.bmp" ' Resimi Kaydeder...

End Sub

su kodu degistirerek command butonunu bir tuşa baglamak istedim ancak şoyle bir hatayla karsılastım

"Compile Error:
Sub Or Function not defined"

vede "Private Sub Command1_Click()" bu kod sarı renk icine alınıyor

yardımlarınızı esirgemeyin arkadaşlar

__________________