[Amin_Mansouri]

س !!!!!!!!!!!!!

کسی از دوستان نمی تونه این مشکل من رو حل کنه ؟

بیا

دکمهf12 بزن فرمتو نمایش میده

کد:

Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
If i = "123" Then Me.Show
End If
Next i
End Sub

یه تایمر روی فرمت بزار تایم هم بده روی 1