I hope following code will be useful to you, it works with vb 6
HTML Code:
Dim ClickCounter As Integer
Private Sub Form_Load()
ClickCounter = 0
End Sub
Private Sub Form_MouseDown(button As Integer, _
shift As Integer, x As Single, y As Single)
ClickCounter = ClickCounter + 1
SaveSetting "AboutVBExample", _
"Location\Click" & ClickCounter, _
"button", button
SaveSetting "AboutVBExample", _
"Location\Click" & ClickCounter, _
"shift", shift
SaveSetting "AboutVBExample", _
"Location\Click" & ClickCounter, _
"x", x
SaveSetting "AboutVBExample", _
"Location\Click" & ClickCounter, _
"y", y
End Sub Hope it helps