Dim intTimerCnt as Integer = 0 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick intTimerCnt += 1 Select Case intTimerCnt Case 1 MsgBox("一度目") Case 2 MsgBox("二度目") Case 3 MsgBox("三度目") End Select End Sub