Private m_IdQue As String Private m_ValidOrder As String
Private Sub Form1_Load() m_IdPool = " " 'ダミーの３桁データを入れておく m_ValidOrder = "123" ' 最初の規則は１２３の順 End Sub
Private Sub Button1_Clock AddEventToQue "1" End Sub Private Sub Button2_Clock AddEventToQue "2" End Sub Private Sub Button3_Clock AddEventToQue "3" End Sub
Private Sub AddEventToQue(id As String) m_IdQue = Right(m_idQue, 2) & id If m_IdQue <> m_ValidOrder Then Exit Sub End If
