Private Sub frmTest_Load(sender As Object, e As EventArgs) Handles MyBase.Load Timer1.Start() End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim intSleepTime As Integer=N * 1000 System.Threading.Thread.Sleep(intSleepTime)・・・* Timer1.Stop() Me.Close() End Sub