VERSION 1.00
Begin Form Formular
   Caption = "Steuerelemente"
   Height = 16
   Left = 0
   Top = 0
   Width = 46
   Begin Menu mnuDatei
      Caption = "&Datei"
      Begin Menu mnuOpen
         Caption = "&Open"
      End
   End
   Begin TextBox Text1
      Height = 3
      Left = 2
      TabIndex = 0
      Text = "Eingabe"
      Top = 2
      Width = 18
   End
   Begin CommandButton Command1
      Caption = "&OK"
      Default = -1
      Height = 1
      Left = 23
      TabIndex = 1
      Top = 3
      Width = 10
   End
   Begin ListBox List1
      Height = 5
      Left = 2
      Sorted = -1
      TabIndex = 2
      Top = 6
      Width = 18
   End
   Begin Label Status
      Caption = "bereit"
      Height = 1
      Left = 23
      Top = 7
      Width = 18
   End
   Begin Label TimerStatus
      Caption = "Timer 0"
      Height = 1
      Left = 23
      Top = 9
      Width = 18
   End
   Begin Timer Timer1
      Enabled = -1
      Interval = 100
   End
End

' tb-screen: 80x25
' tb-events: key:<TAB> | mouse:down,1,0,4,25 | mouse:up,1,0,4,25 | time:0ms | key:<ENTER> | key:%d | key:o | time:250ms
DIM SHARED Klicks%, Ticks%
Formular.Show
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
END

SUB Form_Load()
List1.ADDITEM "zwei"
List1.ADDITEM "eins"
END SUB

SUB Command1_Click()
SHARED Klicks%
Klicks% = Klicks% + 1
r% = MSGBOX("Weiter?", 0, "Klick")
Status.Caption = "Dialog " + STR$(r%)
END SUB

SUB mnuOpen_Click()
Status.Caption = "Menü"
END SUB

SUB Timer1_Timer()
SHARED Ticks%
Ticks% = Ticks% + 1
TimerStatus.Caption = "Timer " + STR$(Ticks%)
END SUB