La programación de imágenes VB inserta imágenes, pero las imágenes solo se muestran lentamente y son solo una pequeña parte
Tu forma de cargar imágenes es relativamente lenta. Usar el método LoadPicture será muy rápido y la imagen se mostrará fielmente.
El código es el siguiente:
Private Sub Command1_Click()
CDlg1.DialogTitle = "Abrir archivo" 'CDlg1 es un control de cuadro de diálogo común p>
CDlg1.Filter = "Imágenes(*.bmp)!*.bmp"
CDlg1.ShowOpen
Fin Sub
Subcomando privado2_Click () p>
Imagen1.Picture = LoadPicture(CDlg1.FileName)
Fin Sub
Subcomando privado3_Click()
Fin p>
Fin Sub