画面が広いとカーソルが迷子(どこにあるのかわからない状態)になることがよくある。
こういう時にお助けプログラムを作ってみよう。
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