Option Explicit
    Dim pic As String
Private Sub Command1_Click()

    ' Establecer CancelError a True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    ' Establecer los indicadores
  CommonDialog1.Flags = cdlOFNHideReadOnly
    ' Establecer los filtros
    CommonDialog1.Filter = "Todos los archivos (*.*)|*.*|Archivos de texto" & _
    "(*.txt)|*.txt|Archivos por lotes (*.bat)|*.bat"
    ' Especificar el filtro predeterminado
    CommonDialog1.FilterIndex = 2
    ' Presentar el cuadro de diálogo Abrir
    CommonDialog1.ShowOpen
    ' Presentar el nombre del archivo seleccionado
    pic = CStr(CommonDialog1.FileName)
  
    Me.Picture = pic
    
    
    Exit Sub
    
ErrHandler:
    ' El usuario ha hecho clic en el botón Cancelar
    Exit Sub
End Sub

 form.picture=loadpicture(strDireciónArchivo)