質問: 1000 * 2 Call colorword1() Call colorword2() End Sub Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick Select Case e.Button Case Windows.Forms.MouseButtons.Left Call colorword1() Call colorword2() Case Windows.Forms.MouseButtons.Right Call colorword1() Call colorword2() End Select End Sub Private Function RGB(p1 As Integer) As Color Throw New NotImplementedException End Function Private Function RGB(p1 As Integer, p2 As Integer, p3 As Integer) As Color Throw New NotImplementedException End Function End Class
回答: マウスクリックされると、いままで経過した時間を破棄してさらに2秒待つ、ということでしたら、Form1_MouseClickハンドラ内で一旦Me.Timer1をStopメソッドで停止して再度Startメソッドで起動すると、さらに2秒後Tickイベントが発生するはずです。 参考:Timer.Stop メソッド.aspx)