Datamax-ONeil A-Class - Page 191

Appendix B – Sample Programs
Class Series 2 Programmer’s Manual 177
End Sub
Private Sub open_Click()
CommonDialog1.ShowOpen
loadfile = CommonDialog1.FileName
txtFile.Text = loadfile
End Sub
Private Sub Printer_Click()
CommonDialog1.ShowPrinter
End Sub
This will create the form pictured below:

It may be necessary to remove and reinsert the common dialog control due to Windows
®
registry issues.