SUB Open ( File AS String )
PUBLIC hPdf AS NEW PdfDocument ' ... PUBLIC SUB BtOpen_Click() TRY hPdf.Open(".\home") IF ERROR THEN Message.Error(Error.Text) RETURN END IF END