SavePicture Statement

[gravyboy]

How do I use the SavePicture Statement?

I have tried . . .

Private Sub cmdSave_Click()
    
    frmDraw.picFrame.Picture = frmDraw.picFrame.Image
    
    SavePicture frmDraw.picFrame.Picture, "a:\" & InputBox("Filename?", "Save File") & ".bmp"

An' blow me (ooer . . . .) if it doesn't work!

The VB help is pants 'cos it uses reserved words 'n' everything!



[email protected]

[Nitro]

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)


Sub Main()
'To get the Entire Screen
Call keybd_event(vbKeySnapshot, 1, 0, 0)

'To get the Active Window
'Call keybd_event(vbKeySnapshot, 0, 0, 0)

SavePicture Clipboard.GetData(vbCFBitmap), "C:\Hello.bmp"
End Sub