[VB6] Oggetti in movimento

[pierabo]

Originariamente inviato da zoodany
È possibile in VB6 far muovere gli oggetti di un form?

Ciao, a livello grezzo:

Dim DaSpostare As Boolean

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DaSpostare = True


End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If DaSpostare Then
Text1.Top = Y
Text1.Left = X
End If

End Sub


Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
DaSpostare = False


End Sub