how can I print??

[octane]

I have this example:

Private Sub Command2_Click()
Dim objPrint As Printer
CommonDialog1.Flags = cdlPDDisablePrintToFile
CommonDialog1.Copies = 3
CommonDialog1.PrinterDefault = True
CommonDialog1.ShowPrinter

'what's next??

MsgBox "The default printer is:" & Printer.DeviceName
End Sub

but I don't know how to print, I need to print a text box or just give me an example to print a messaje.

Thanx for your cooperation!