Sub btnprint_MouseClicked (EventData As MouseEvent)
im result As Boolean
Dim m As Map
m.Initialize
m.Put("top",pnlprint.Top)
m.Put("left",pnlprint.Left)
pnlprint.Left=0
pnlprint.Top = 0
Dim printerjob As PrinterJob
Dim p As Printer = Printer_Static.GetDefaultPrinter
printerjob = PrinterJob_Static.CreatePrinterJob2(p)
printerjob.ShowPrintDialog(Null)
printerjob.PrintPage(pnlprint)
printerjob.EndJob
pnlprint.Left = m.Get("left")
pnlprint.top = m.Get("top")
end sub