Current Help File: PC-DMIS Basic (View Core Help)

Expand all

Sub Main ()
   Begin Dialog DialogName1 60, 60, 160, 70, "ASC - Hello"
      TEXT 10, 10, 28, 12, "Name:"
      TEXTBOX 42, 10, 108, 12, .nameStr
      TEXTBOX 42, 24, 108, 12, .descStr
      CHECKBOX 42, 38, 48, 12, "&CHECKME", .checkInt
      OKBUTTON 42, 54, 40, 12
   End Dialog
   Dim Dlg1 As DialogName1
   Dialog Dlg1
   MsgBox Dlg1.nameStr
   MsgBox Dlg1.descStr
   MsgBox Dlg1.checkInt
End Sub