VB6でこのようなちょ～単純なプログラムの作り方を教えてください

質問

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

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

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

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

回答No.1

Mizyu · ベストアンサー

初回画面をForm1,パスワード画面をForm2として
Form1に貼り付けたタイマーをTimer1としたときに
Form1に
---------------------------------------
Private Sub Form_Load()

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

End Sub

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

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

End Sub
--------------------------------------
とすれば、よいです。
あと、パスワードを入れて、戻るのは逆の要領でやればＯＫです。

補足

早速の、回答ありがとうございます！！！
えっと、ボタンを押したり、マウスを動かしたり
した時は、そこから10秒としたいのですが、
（スクリーンセーバーの起動みたいな感じ）
どうすればよいでしょうか？