Printing controls in a picturebox

[masonad]

In the following example, how does one setup the printer for printing a shape, Line and picturebox object.

For each ctrl In myScreen.controls
If ctrl.container.name = "myPictureBox" then
If TypeOf ctrl is TextBox then
Printer.currentX = ctrl.left
Printer.currentY = ctrl.top
Printer.Print ctrl
ElseIf TypeOf ctrl is Shape then
???
ElseIf TypeOf ctrl is Line then
???
ElseIf TypeOf ctrl is Picture then
??
End If
End If
Printer.EndDoc
Next