カーソルが迷子になったとき - abwiki @ ウィキ (ActiveBasic非公式wiki)

画面が広いとカーソルが迷子（どこにあるのかわからない状態）になることがよくある。
こういう時にお助けプログラムを作ってみよう。
CTRLキーを押すとカーソルを左上に持っていくコードだ。
単純な構造なのでABで作るにはもってこいだ。
このPGは改善の余地は大いにあるが。。。

プログラムは60秒で終了するようにしている。

Dim t As Long

t = GetTickCount() + (60 * 1000)

While (t > GetTickCount())
If GetAsyncKeyState(VK_CONTROL) And &h8000 Then
SetCursorPos(0,0)
End If
Sleep(1)
Wend
End