Mause taşındığında olayı

[nafis]

Merhaba,
Mause taşındığında yaniText box1 üzerine geldiğinde içindeki yazıyıText box2 aktarması nasıl yapılır.
Örnek
Text box1 = 10 yazıyor mause ile üzerine geldim ama tıklamadım mause i taşıdım 10 rakamını Text box2 = yazacak.
Saygılarımla

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir.

Private Sub TextBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If TextBox1 = TextBox2 Then Exit Sub
TextBox2 = TextBox1
End Sub

 

[nafis]

Merhaba,
Sn.PLİNT, Elinize sağlık Teşekkürederim.
Saygılarımla