VB6でスクリーンセーバーもどきを作るには？（すみません再び）

質問

すみません、先ほど
『このようなちょ～単純なプログラムの作り方を教えてください』で質問したものです。間違って回答を
締め切ってしまいました。回答してくださろうと
していた方申し訳ございませんでした・・。
もう一度、再開します。

何でもいいので全画面に広がるFrmを用意して、
その画面でマウスクリックとか、キーボードを
さわったりとか何もせずに、10秒間たつと、

別の全画面のＦｒｍを上にかぶせて、
あるＩＤとパスワードをいれないと
元の画面に戻れないようにしたいのです。

簡単なＶＢ版のスクリーンセーバーを作りたいのです。
Timerを使うのは分かるのですが、
どなたか詳しく教えていただけませんか？

また、忘れがちなこともあれば教えて下さい。

回答No.1

Mizyu · ベストアンサー

さきほどの派生なのですが

---------------------------------------
'Form Loacイベント時に呼ばれる
Private Sub Form_Load()
Call TimerReset
End Sub
'なにかKeyが押された時に呼ばれる
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Call TimerReset
End Sub

'同様にKeyを離した時に呼ばれる
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Call TimerReset
End Sub

'Formの上をマウスを動かした時に呼ばれる
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call TimerReset
End Sub

'TimerResetがCallされてから10秒後に呼ばれる。
Private Sub Timer1_Timer()

'Form1を隠す。
Me.Hide
'Form2を表示
Form2.Visible = True

End Sub

'Timerの初期化を関数化
Private Sub TimerReset()

' Timer停止
Timer1.Enabled = False
' TimerのIntervalを10000ミリ秒（10秒）に設定
Timer1.Interval = 10000
' Timer起動
Timer1.Enabled = True

End Sub

--------------------------------------
こんな感じで。

補足

おおっ！再びの回答ありがとうございます。
バッチシです。感謝します！！！