Option Explicit 

Private Sub Command1_Click(Index As Integer)
    With SwingSecsII1(1)
        Select Case Index
        Case 0
            'Online
            .List = "s1f13w{}"
        Case 1
            'PPSelect
            .List = "s2f41w{<a'PP-SELECT'>" & _
                "{{<a'PPID'>" & _
                "<a'" + Text1.Text + "'>}}}"
        Case 2
            'PPStart
            .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 "Cannot open serial port!"
        End If
    End With
End Sub

Private Sub SwingSecsI1_Read(ByVal pszMsg As String)
    With SwingSecsII1(0)
        .Msg = pszMsg
        Select Case .Stream
        Case 1
            Select Case .Function
            Case 14
                'S1F14
                MsgBox "Connected!"
            End Select
        Case 2
            Select Case .Function
            Case 42
                'S2F42
            End Select
        Case 6
            Select Case .Function
            Case 11
                'S6F11
                With SwingSecsII1(1)
                    .List = "S6F12<b 0>"
                    .Reply pszMsg
                    SwingSecsI1.Send .Msg
                End With
                'CEID
                .Pointer = "2"
                Select Case CInt(.Value)
                Case 10
                    'Process program selected
                    MsgBox "PPSelect completed!"
                Case 11
                    'Process program select failed
                    MsgBox "PPSelect failed!"
                Case 20
                    'Process program completed
                    MsgBox "Measurement finished!"
                Case 30
                    'Measurement data
                End Select
            End Select
       End Select
    End With
End Sub