.Active = True
If Not .Active Then
  MsgBox "エラー：通信ポートをオープンできません！"
End If

.List = "s1f13w{}"
SwingSecsI1.Send .Msg

.List = "s2f41w{<a'PP-SELECT'>{{<a'PPID'><a'" + Text1.Text + "'>}}}"
SwingSecsI1.Send .Msg

.List = "s2f41w{<A'START'>{{}}}"
SwingSecsI1.Send .Msg

.Msg = pszMsg

'CEID .Pointer = "2"
Select Case CInt(.Value)
Case 10
  MsgBox "レシピ指定に成功した"
Case 11
  MsgBox "レシピ指定に失敗した"
Case 20
  MsgBox "測定が完了した"
Case 30
  '測定データ
End Select

.List = "s6f12<b 0>"
.Reply pszMsg
SwingSecsI1.Send .Msg

Option Explicit
Private Sub Command1_Click(Index As Integer)
  With SwingSecsII1(1)
    Select Case Index
    Case 0
      'Attempt online
      .List = "s1f13w{}"
    Case 1
      'Select recipe
      .List = "s2f41w{<a'PP-SELECT'>{{<a'PPID'><a'" + Text1.Text + "'>}}}"
    Case 2
      'Start measurement
      .List = "s2f41w{<a'START'>{{}}}"
    End Select
    SwingSecsI1.Send .Msg
  End With
End Sub

Private Sub Form_Load()
  With SwingSecsI1
    .Active = True
    If Not .Active Then
      MsgBox "Error : Cannot open serial port!"
    End If
  End With
End Sub

Private Sub SwingSecsI1_Read(ByVal pszMsg As String)
  With SwingSecsII1(0)
    .Msg = pszMsg
    If .Stream = 1 And .Function = 14 Then
      'S1F14
      MsgBox "You are online"
    End If
    If .Stream = 6 And .Function = 11 Then
      'S6F11
      SwingSecsII1(1).List = "s6f12<b 0>"
      SwingSecsII1(1).Reply pszMsg
      SwingSecsI1.Send SwingSecsII1(1).Msg
      'CEID
      .Pointer = "2"
      Select Case CInt(.Value)
      Case 10
        MsgBox "Recipe selected"
      Case 11
        MsgBox "Recipe selection failure"
      Case 20
        MsgBox "Measurement completed"
      Case 30
        'Measurement data
      End Select
    End If
  End With
End Sub