Sub Main Begin Dialog CheckSample15,32,149,96,"Check Boxes" OKButton 92,8,40,14 CancelButton 92,32,40,14 CheckBox 12,8,45,8,"CheckBox",.CheckBox1 CheckBox 12,24,45,8,"CheckBox",.CheckBox2 CheckBox 12,40,45,8,"CheckBox",.CheckBox3 CheckBox 12,56,45,8,"CheckBox",.CheckBox4 End Dialog Dim Dlg1 As CheckSample Button = Dialog ( Dlg1 ) End Sub