タイマー - abwiki @ ウィキ (ActiveBasic非公式wiki)

'タイマー
#N88BASIC
Dim cx As Single
Dim hwnd As HWND
hwnd = GetForegroundWindow()
SetTimer(hwnd,1,300,AddressOf(TimerProc))
While cx < 10
  Sleep(222)
Wend
KillTimer(hwnd,1)
Print "owari"

Sub TimerProc(hwnd As HWND,uMsg As DWOrd,idEvent As *DWord,dwTime As DWord)
  If idEvent = 1 Then
    Print "cx=";cx
    cx = cx + 1
  End If
End Sub