[VB6] trascinare il form

[webgip]

salve a tutti..
volevo sapere qual'e la Routine o come posso fare per far comparire una scritta nella caption del form mentre lo sto trascinando e quando lo lascio farci tornare il normale titolo..

ad esempio:
Private Sub Form_???()
form1.capiton = "la scritta"
end sub

Private Sub Form_???2()
form1.capiton = "l'altra scritta"
end sub

[web@web]

Io utilizzo VB.net, ma in questo caso non dovrebbe fare differenza...

form.move per catturare l'evento del movimento

form.mouseup per catturare l'evento del sollevamento del tasto del mouse (momento in cui lo rilasci)