On Error Resume Next
With CommonDialog1
  .CancelError = True
  .Filter = "Bitmap (*.bmp)|*.bmp"
  .ShowSave
  If Err.Number = 0 Then
    SavePicture Picture1.Picture, .Filename
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de