Kod:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
'********f3 TUŞU KULLANIMI********
Case vbKeyF3: Onay1.SetFocus
Onay1 = -1
If Onay1 = -1 Then
Me.Uetiket.Visible = True
Me.Uaçıklama.Visible = True
Me.Uaçıklama.SetFocus
Else
Me.Uetiket.Visible = False
Me.Uaçıklama.Visible = False
End If
Bu ve bunun gibi...