Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TimerTextBox.Text = DateTime.Now.ToString()
End Sub
Private Delegate Sub StartTimerDelegate()
Private StartTimerThread As Threading.Thread
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim th = New Threading.Thread(AddressOf f)
th.Start()
'System.Threading.Thread.Sleep(5000)
End Sub
Private Sub f()
Dim now As DateTime = DateTime.Now
Dim mSec As Integer
'mSec = 60000 - (now.Second * 1000 + now.Millisecond)
Threading.Thread.Sleep(5000)
MessageBox.Show("たった")
Me.Invoke(New StartTimerDelegate(AddressOf g))
End Sub
Private Sub g()
Timer1.Start()
End Sub
