Foro de elhacker.net

Private Sub mnuAbrir_Click()
Dim nf As New Form1 
On Error GoTo errores
CD.DialogTitle = "Abrir Imagen"
CD.InitDir = "C:\Archivos de programa"
CD.Filter = "Todos los archivos |*.*|Imagenes|*.jpg|mapa de bits|*.bmp|"
CD.ShowOpen

nf.imgImagen.Picture = LoadPicture(CD.FileName)
nf.Caption = CD.FileName
nf.Show
errores:
End Sub

Private Sub cmdGuardarC_Click()
On Error GoTo errors:
If Forms.Count > 1 Then
  On Error GoTo errors
  CD.DialogTitle = "Guardar Com"
  CD.InitDir = "C:\"
  CD.ShowSave
  SavePicture ActiveForm.imgImagen.picutre, CD.FileName
  ActiveForm.Caption = CD.FileName
End If
errors:
End Sub