タイマーでのフォーム操作のやりかた (ID:84461)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ===== フォーム1のコード ===== Private Sub Command1_Click() 'コマンドボタン押下でForm2を表示します Form2.Show End Sub フォーム2にタイマーコントロールを貼り付けて、 ===== フォーム2のコード ===== Private Sub Form_Load() 'タイマーの間隔を20秒にします Timer1.Interval = 20000 End Sub Private Sub Timer1_Timer() '2つのフォームを閉じます Unload Form1 Unload Form2 End Sub こんな感じで