[RESOLVED] Saving a capture of the form as a BMP file?

Private Sub PrintButton_Click()
Dim s As String
 'you can also make the picbox visible=false
 'or move it off screen
 Picture1.AutoRedraw = True
 s = "Form Picture dated: " & Now
 Clipboard.Clear
 DoEvents
 Call keybd_event(VK_SNAPSHOT, AppScreen, 0&, 0&)
 DoEvents
 'get the form pic to Picture1
 Set Picture1.Picture = Clipboard.GetData(vbCFBitmap)
 'write the caption
 With Picture1
 
  
  Picture1.Height = 9960
  Picture1.Width = 15030
 End With
 Picture1.Print s
SavePicture Picture1.Image, App.Path & "\Literacy Station Picks - " & LiteracyStationWeekView.Caption & Format(Date, "dd-mm-yyyy") & " - " & Format(Time$, "hh-mm-ss") & ".bmp"
End Sub