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("三度目")

                intTimerCnt = 0

        End Select

    End Sub


こんな感じでいいんですかね・・・？