[VB6] Spostare due Oggetti Contemporaneamente

[tippolo]

vedi se questo è il codice che fa al caso tuo

Dim StartX As Integer, StartY As Integer
Dim MuoviOggetti As Boolean


Private Sub label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    StartX = X
    StartY = Y
    MuoviOggetti = True
End Sub


Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not MuoviOggetti Then Exit Sub
    With Label1
        .Move .Left + (X - StartX), .Top + (Y - StartY)
    End With
    Shape1.Top = Label1.Top + 10
    Shape1.Left = Label1.Left + 20
End Sub


Private Sub label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MuoviOggetti = False
End Sub