[Amin_Mansouri]

کد:

Private Sub Form_Load()
Me.Hide ' makhfi kardan form
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF22 + vbKeyF5
Me.Show
Case Else
End Select
End Sub