Tek butonla iki textboxa değer girme

[fehdur]

1 adet commandButon değerinin1 olduğunu varsayalım.İki ayrı textbox var.Hangisinin üstüne tıklarsam o textboxa buton değeri yazsın istiyorum.Yani textbox1 üzerine tıklarsam textbox1 e, textbox2 üzerine tıklarsam textbox2 ye buton değeri yazılacak.Yardımlarınızı bekliyorum.Teşekkür ederim.

 

[Orion1]

Çift tıklama ile.

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = CommandButton1.Caption
End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Value = CommandButton1.Caption
End Sub