I have written a "print screen" routine in VB6, but I am having trouble getting the print out to look correct and some finer points of the printing working.

The problems:
1) I put the caputured screen bitmap onto a form and print it. Is this is the best way to do it? Currently the bitmap is clipped because the form is not big enough, how can I get it stretch/shrink itself into the form.
2) When I issue the form1.printform command, the printout is send directly to the default printer. I would instead like the Windows print diallog to come up. This would allow the user to set various properties of the print job.

Sub Main()
    Clipboard.Clear
    keybd_event vbKeySnapshot, TheScreen, 0&, 0&
    DoEvents
    Form1.Picture = Clipboard.GetData()
    Form1.PrintForm
    End
End Sub