How to use MouseMove Event Procedure in VB6?

जब हम Mouse को Move करते हैं, तब MouseMove Event Trigger होता है और इस Event को Handle करने के लिए हम जिस Procedure को Create करते हैं, उसे MouseMove Event Procedure कहते हैं।

जब हम Mouse के MouseMove Event को Use करते हैं, तब भी Create होने वाले Procedure में ये ही चारों Arguments होते हैं। इसलिए यदि हम चाहें तो Mouse Pointer की Runtime Current Position को भी Form पर Display करवा सकते हैं। ये काम करने के लिए हमें Form के साथ MouseMove Event को Select करना होता है, जिससे निम्नानुसार Event Procedure Create होता हैः

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

End Sub

अब Mouse के Pointer की Current Position को Display करने के लिए हम Form के Print Method को Use कर सकते हैं, लेकिन इस Method को Use करने पर हमें Form पर Mouse Position का पिछला मान भी दिखाई देता रहता है, इसलिए Mouse के पिछली Position के मान को Form पर से Clear करने के लिए हम Form के Cls Method को Use कर सकते हैं। इस तरह से हम इस Procedure को निम्नानुसार Define कर सकते हैं, जो Mouse Pointer की Current Position को Form पर Display करता हैः

Private Sub Form_MouseMove
(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Cls
Print X, Y
End Sub