Appendix B – Sample Programs 
 
Class Series 2 Programmer’s Manual  175 
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.