Visual Basic 6 - muovere elementi nella picture box

ciao grazie per l'esempio pero' purtroppo non e' compatibile con il programma, inquanto il codice che ho postato era un'esempio missa' che dovro' continuare sul vecchio codice ed una sola picturebox.
grazie lo stesso.
A

Un esempio missa?

Che dici?

ciao, un'esempio? non saprei, posso cercare di rispiegare quello che voglio/sto facendo:
un programma per gestire una CNC per forare e fresare i circuiti stampati.
cosa fa il programma; legge un file Excellon e disegna su una pictureBox il contenuto del file, voglio implementare la funzione move,zoom e mirror. e altre funzioni che ancora sono da implementare.
A

Non sto capendo nulla ...

Ciao Ciccio,
se ho capito il problema, il seguente codice potrebbe esserti d'aiuto.
In una Pic inserisci tre oggetti (anche tre CmdButton) con uguale nome in modo che si formi la relativa matrice (nell'esempio imgSpost); nella Pic ho inserito tre icone, poi tenendo premuto il tasto destro del mouse muovi gli oggetti:

Option Explicit
' Cordinate iniziali X e Y:
Dim PartX0 As Integer, PartX1 As Integer, PartX2 As Integer
Dim PartY0 As Integer, PartY1 As Integer, PartY2 As Integer
'-----------------------------------------------------------
Private Sub imgSpost_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

' Acquisisce le coordinate X e Y di partenza dei tre controlli:
    If Button = 2 And Index = 0 Then
        PartX0 = X
        PartY0 = Y
        ElseIf Button = 2 And Index = 1 Then
        PartX1 = X
        PartY1 = Y
        ElseIf Button = 2 And Index = 2 Then
        PartX2 = X
        PartY2 = Y
    End If
    'MousePointer = 99
    'MouseIcon = ImageList1.ListImages(1).Picture
    

End Sub
'-----------------------------------------------------------
Private Sub imgSpost_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

' Chiama la sub routine:
    If Button = 2 And Index = 0 Then
            Call MuoviImage0(X, Y)
        ElseIf Button = 2 And Index = 1 Then
            Call MuoviImage1(X, Y)
        ElseIf Button = 2 And Index = 2 Then
            Call MuoviImage2(X, Y)
    End If
    
    'MousePointer = 0

End Sub
'-----------------------------------------------------------
Sub MuoviImage0(X As Single, Y As Single)
        
    Dim H0 As Double
    Dim V0 As Double
'spostamento Sinistra, Alto e Basso - 1^ Immagine:
    H0 = imgSpost(0).Left + (X - PartX0)
    V0 = imgSpost(0).Top + (Y - PartY0)
    imgSpost(0).Left = H0
    imgSpost(0).Top = V0

End Sub
'-----------------------------------------------------------
Sub MuoviImage1(X As Single, Y As Single)
    Dim H1 As Double
    Dim V1 As Double
'spostamento Sinistra, Alto e Basso - 2^ Immagine:
    H1 = imgSpost(1).Left + (X - PartX1)
    V1 = imgSpost(1).Top + (Y - PartY1)
    imgSpost(1).Left = H1
    imgSpost(1).Top = V1

End Sub
Sub MuoviImage2(X As Single, Y As Single)
    Dim H2 As Double
    Dim V2 As Double
'spostamento Sinistra, Alto e Basso - 3^ Immagine:
    H2 = imgSpost(2).Left + (X - PartX2)
    V2 = imgSpost(2).Top + (Y - PartY2)
    imgSpost(2).Left = H2
    imgSpost(2).Top = V2

End Sub

Spero che ti sia utile.

ciao, grazie, la provo al piu' presto e ti faccio sapere.
non mi e' tanto chiaro lo scopo dei 3 pulsanti.
pero' stasera provo e ti diro'.
grazie.
A.

ciao, ho provato a mettere il tutto in un form con pulsanti ecc...
pero' mi da' variabili non definite! index0 che sarebbero i pulsanti!
ho fatto come mi hai detto ho creato una matrice di pulsanti con il nome da te suggerito,
ma niente. in allegato il proj. RINOMINARE IN .RAR.

grazie
A.

Guarda che il codice suggerito usa un array di Picture, che tu non hai sul form ...