Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = "IT-DarK"
End Sub
สร้าง CommandButton 1 อันและ TextBox 1 อัน ...
แล้วใส่โค้ด ...
Credit พี่ Unknown '~ ครับ
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = "IT-DarK"
End Sub