Con formatear me refiero a ponerlo más legible:
Private Sub Command1_Click()
With CommonDialog1
.DialogTitle = "Seleccionar imagen "
.Filter = "JPG|*.JPG|BMP|*.bmp|GIF|*.GIF|Todos los archivos|*.*"
.ShowOpen
If .FileName = "" Then
Exit Sub
Else
Image1 = LoadPicture(.FileName)
End If
End With
End Sub
Estoy probando lo que me diste antes por todos lados y no lo consigo hacer funcionar
Entonces es que has probado poco
porque es tan sencillo como:
Private Sub Command1_Click()
With CommonDialog1
.DialogTitle = "Seleccionar imagen "
.Filter = "JPG|*.JPG|BMP|*.bmp|GIF|*.GIF|Todos los archivos|*.*"
.ShowOpen
If .FileName = "" Then
Exit Sub
Else
Image1 = LoadPicture(.FileName)
End If
List1.AddItem .FileName
End With
End Sub
Siendo
List1 un listbox ya creado, por supuesto.