[VB] Problema?

[iguana13]

Sub CaricaImmagine(Parametro As String)

'Credo che con Set funzioni
Set Image.Picture = LoadPicture(App.Path + "\images\" + Parametro)

If Image.Width > 3975 Or Image.Height > 3975 Then
        With Image
            .Width = 3975
            .Height = 3975
        End With
End If
Stretch = False
txtImmagine.Text = Parametro

End Sub

2 Annotazioni:
- Per domande su VB esiste i forum di VB
- E' meglio se metti il codice tra [*CODE] e [/*CODE] senza asterischi