[techno]

I hope following code will be useful to you, it works with vb 6

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