Save Screen Capture output to a file

[Ranger]

Can anyone show me how to save a screen capture output into a file if my screen
capture procedure is shown below ?
'in module
----------------------------------------------------------------------
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT As Byte = 44 ' PrintScreen virtual keycode
Public Const PS_TheForm = 0
Public Const PS_TheScreen As Byte = 1

'in form
----------------------------------------------------------------------
Private Sub Command1_Click()
Clipboard.Clear
' Allow some time for Windows to clear the clipboard
DoEvents

' Make Windows call the PrintScreen routine
Call keybd_event(VK_SNAPSHOT, PS_TheScreen, 0, 0)

' Allow some time for Windows to update the clipboard
DoEvents

'Do something with the picture.
Picture1.PaintPicture Clipboard.GetData, 0, 0
End Sub

[Mattias Sjögren]

>Can anyone show me how to save a screen capture output into a file if my screen
>capture procedure is shown below ?

SavePicture Clipboard.GetData, "c:\screenshot.bmp"


Matt

============================================
Mattias Sjögren - mattiass @ hem.passagen.se
CodeHound - Free VB Search Engine
http://www.codehound.com

[Mattias Sjögren]

>Can anyone show me how to save a screen capture output into a file if my screen
>capture procedure is shown below ?

SavePicture Clipboard.GetData, "c:\screenshot.bmp"


Matt

============================================
Mattias Sjögren - mattiass @ hem.passagen.se
CodeHound - Free VB Search Engine
http://www.codehound.com