For the SaveAs you could probably go:
Code:
CommonDialog1.FileName="*.bmp"
CommonDialog1.ShowSave
Call SavePicture(Picture1.Picture,CommonDialog1.Filename)
For Open:
Code:
CommonDialog1.Filename="*.bmp"
CommonDialog.ShowOpen
Picture1.Picture=LoadPicture(CommonDialog.Filename)
For Undo (i'm not usre if this will work, it works with textboxes)
Code:
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const Em_Undo = &HC7
Call SendMessage(Picture1.hwnd,EM_Undo,0&,0&)