ben cok aradım ama hic bir yerde yok olsa bile eyer form ekranda olmazsa calışmıyordu yada form da iki buton varsa hangisi aktifse o calışıyordu buda istenmeyen bir durumdur bu ise farklı kendi yapmış oldugum bu kod form nerde olursa olsun hangi tuş aktif olursa olsun entere tuşuna vermiş oldugunuz gorev entere tuşuna basınca calışacaktır kesinlikle kendi kodlarımdır sonunda başardım
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxx


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer



Private Sub Command1_Click()
Form2.Show
Text1.Text= "MESUT ASLAN dan sevgilerle"
End Sub



Private Sub Timer1_Timer()
On Error Resume Next
Dim BasilanTus As String



If GetAsyncKeyState(13) = -32767 Then
BasilanTus = "ENTER"
Command1_Click

End If
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxx
__________________