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
Perdon se me olvido el code jeje,a lo de formateo no se a que te refieres.. si me dices lo que es te lo agradeceria.
PD: Estoy probando lo que me diste antes por todos lados y no lo consigo hacer funcionar xdxd