Visual Basic 6 - muovere elementi nella picture box

in allegato il codice sorgente.

E che senso ha? Come fai ad utilizzarle in un programma se non gli dai mai nessun valore?

(lo zip non si puo' scaricare)

ma che vuoi fare? Tipo "scrollare" l'immagine?
se si basta che usi 2 picturebox una dentro l'altra, e delle scrollbar...

strano... a me si scarica tranquillamente....
per quanto riguarda il valore. no, non ha nessun valore.
A.

si voglio scrollare l'immagine ma senza usare un'altra picturbox e nemmeno le scrollbar.
semplicemente cliccando con il mouse.
A.

Lo zip viene scaricato ma e' corrotto.

rinominalo in .rar

E dirlo prima?

Comunque ... aggiungi una PictureBox nascosta e caricaci l'immagine come hai fatto nella prima. E poi scrivi

Option Explicit

Dim muovi As Boolean

Private Sub Command1_Click()
    muovi = True
End Sub


Private Sub Form_Load()
    Picture1.PaintPicture Picture2.Picture, 0, 0
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If muovi Then Picture1.MousePointer = vbCustom
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1 = "X: " & Round(X, 3)
    Label2 = "Y: " & Round(Y, 3)
    
    If muovi And Button = vbLeftButton Then
        Picture1.Cls
        Picture1.PaintPicture Picture2.Picture, X, Y
    End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    muovi = False
    Picture1.MousePointer = vbCrosshair
End Sub

... e' molto semplificato ... puoi modificarlo tu ..