Visual Basic 6 - AIUTO

Guarda questa versione.
Non usa Api e usa controlli image che contrariamente alle picture mantengono la trasparenza delle immagini

Ora vedo cos'è.. Comunque il tuo progetto che muove le icone funziona ma solo sul tuo progetto nel mio quando inserisco

If Button = 1 Then
Debug.Print Button
Dim dx As Integer
dx = Picture1(Index).Left - Label1(Index).Left
Screen.MousePointer = 5
ReleaseCapture
SendMessage Picture1(Index).hwnd, WM_NCLBUTTONDOWN, SC_DLG_NO_UI, 0&
Label1(Index).Left = Picture1(Index).Left - dx
Label1(Index).Top = Picture1(Index).Top + Picture1(Index).Height + 100
Screen.MousePointer = 1
End If

dice che releasecapture è sbagliato non so perchè, mentre nel tuo proggetto funziona

Il nuovo codice con i controlli Image1 sul tuo progetto funzionano ma sul mio non si muovono le icone.. credo che lo iniziero di nuovo da capo perchè vi sono troppi form e non riesco a capire dove l'errore

Sto Riniziando il Proggetto nel tuo proggetto che dovro modificare per farlo tornare come il mio xDD ma è semplice questo. Ho fatto questa scelta perchè come già detto prima i codici del tuo Proggetto non funzionano nel mio o crashano, quindi facendo cosi risolvo il problema

Per ReleaseCapture controlla di aver copiato la dichiarazione api.
Per l'ultima versione ho cambiato il pulsante da premere per spostare le icone.
Bisogna premere il destro.

Hai ragione ilmio Progetto funziona non avevo preso il codice in alto in Declarations xDDD allora mi risparmio la fatica di riniziare da capo

Perfetto il mio Progetto funziona cosi bene come non ha mai funzionato xDDD non avevo proprio pensato a questi codici:

Option Explicit


Dim StartX As Integer
Dim StartY As Integer
Dim Trascina As Boolean

li avevo dimenticati Grazie per avermelo fatto notare

Cerca comunque di riuscire a far funzionare l'ultima versione, perché ci sono meno problemi tra il trascinamento dell'icona ed il click per richiamare i programmi.

Edit
Sono arrivato tardi