Private Sub Picture1_Click()
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
    .Flags = cdlOFNOverwritePrompt
    .Filter = "Bitmap (*.bmp)|*.bmp"
    .ShowSave
    If Err = 0 Then
      If .FileName <> "" Then
        SavePicture Picture1.Picture, .FileName
      End If
    End If
  End With
  On Error GoTo 0
End Subb