Butonlar yerine F2 ve F3 tuşlarına basmalısınız.
Kod:
Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF2
Me.Text0 = Left(Me.Text0.Text, Me.Text0.SelStart) & Chr$(216) & Mid(Me.Text0.Text, Me.Text0.SelStart + 1)
Me.Text0.SetFocus
Case vbKeyF3
Me.Text0 = Left(Me.Text0.Text, Me.Text0.SelStart) & Chr$(176) & Mid(Me.Text0.Text, Me.Text0.SelStart + 1)
Me.Text0.SetFocus
End Select
End Sub