Yapabilirsiniz.

Forma mtn_gecici adında metin kutusu ekle,

vba sayfasındaki denetimlere ait kodları sil, 

Ayrıntının "Fare Taşındığında" olayına;

Private Sub Ayrıntı_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.mtn_gecici.SetFocus

K1.Visible = False

K2.Visible = False

K3.Visible = False

K8.Visible = False

K9.Visible = False

K10.Visible = False

End Sub

K0 butonunun fare taşındığında olayına

Private Sub K0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.mtn_gecici.SetFocus

K1.Visible = True

K2.Visible = True

K3.Visible = True

K8.Visible = False

K9.Visible = False

K10.Visible = False

End Sub

K7 butonunun fare taşındığında olayınada

Private Sub K7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.mtn_gecici.SetFocus

K1.Visible = False

K2.Visible = False

K3.Visible = False

K8.Visible = True

K9.Visible = True

K10.Visible = True

End Sub

kodlarını ekle.