Mouse Movement [ VB6 ]

โค๊ด: [Select]

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 '~ ครับ

ให้พิม อัตโนมัติใช่ป่ะอันนี้ หุหุ

ให้พิม อัตโนมัติใช่ป่ะอันนี้ หุหุ

  ประยุกต์ได้หลายแบบครับผม ...