Protected Enum VIDEnum
  VIDECTimer = 201
  VIDTimeFormat
  VIDControlState

  ' Load port state
  VIDLoadPortState1 = 301
  VIDLoadPortState2

  ' Access mode
  VIDAccessMode1 = 311
  VIDAccessMode2

  ' Slot map
  VIDSlotMap1 = 321
  VIDSlotMap2

  ' Carrier ID
  VIDCarrierID1 = 331
  VIDCarrierID2
End Enum

Protected Enum CEIDEnum
  CEIDOffline = 51
  CEIDOnlineLocal
  CEIDOnlineRemote

  CEIDPJState = 60
  CEIDCJState = 70
  CEIDWaferProcessData = 80

  ' Carrier transfer request
  CEIDCarrierTransferRequest1 = 101
  CEIDCarrierTransferRequest2

  ' Load port transfer
  CEIDLoadPortTransfer1 = 111
  CEIDLoadPortTransfer2

  ' FOUP lock state
  CEIDFoupLockState1 = 121
  CEIDFoupLockState2

  ' Carrier transfer
  CEIDCarrierTransfer1 = 131
  CEIDCarrierTransfer2

  ' Carrier iD status
  CEIDCarrierIDStatus1 = 141
  CEIDCarrierIDStatus2

  ' Carrier location
  CEIDCarrierLocation1 = 151
  CEIDCarrierLocation2

  ' FOUP door state
  CEIDFoupDoorState1 = 161
  CEIDFoupDoorState2

  ' Carrier slot map state
  CEIDCarrierSlotMapState1 = 171
  CEIDCarrierSlotMapState2

  ' Access mode
  CEIDAccessMode1 = 181
  CEIDAccessMode2
End Enum

Protected Enum ALIDEnum
  ALIDLoadWaferFailure = 1
End Enum

Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  With gem
    .LoadData()
    .PhysicalConnection = True

    ' Enumerate all events
    Dim nCnt As Integer
    For nCnt = 0 To .CEIDCount - 1
      Dim lCEID As Long
      lCEID = .ToCEID(nCnt)

      Dim nIndex As Integer
      nIndex = eventlist.Items.Add(.get_CEIDDescription(lCEID))
    Next
  End With

  With recipelist
    ' Dummy recipe list
    .Items.Add("Recipe1")
    .Items.Add("Recipe99")
    .Items.Add("RecipeABC")
    .Items.Add("RecipeXYZ")
  End With

    With jobtree
      .Nodes.Add("Port1", gem.get_VIDValue(331))
      .Nodes.Add("Port2", gem.get_VIDValue(332))
    End With
  End Sub

Private Sub gem_Received(ByVal sender As System.Object, ByVal e As AxSAVOYLib._DSavoyGemEvents_ReceivedEvent) Handles gem.Received
  Debug.Print("Received(" + e.lpszIPAddress + ", " + Format$(e.lPortNumber) + ")")
  With gem
    If .ControlState = 4 Then
      If .Stream = 3 And .Function = 17 Then
        ' S3F17 Proceed with carrier
        ReceivedS3F17()
      End If

      If .Stream = 7 And .Function = 19 Then
        ' S7F19 Query recipe list
        SendS7F20()
      End If

      If .Stream = 14 And .Function = 9 Then
        ' S14F9 CJ create
        ReceivedS14F9()
      End If

      If .Stream = 16 And .Function = 11 Then
        ' S16F11 PJ create
        ReceivedS16F11()
      End If
    End If
    .DefProc()
  End With
End Sub

  Debug.Print("Connected(" + e.lpszIPAddress + ", " + Format$(e.lPortNumber) + ")")

  .Reply = True

  .Node = ""

  Dim strRecipe As String = "s7f20{"

  For Each item In recipelist.Items
    strRecipe += "<a'" + item + "'>"
  Next

  strRecipe += "}"
  .SML = strRecipe

  .Node = "2"
  Dim strCarrierAction As String = .NodeValue

  If strCarrierAction.ToUpper() <> "ProceedWithCarrier".ToUpper() Then
    ' Not supported
    Exit Sub
  End If

  .InvokeEvent(CEIDEnum.CEIDCarrierSlotMapState1)

  Dim args As New Hashtable()
  .Node = "3"
  Dim nCnt As Integer
  Dim nNodeCount As Integer = .NodeCount
  For nCnt = 1 To nNodeCount
    ' Attribute ID
    .Node = "3/" + Format$(nCnt) + "/1"
    Dim strAttributeID As String = .NodeValue

    ' Attribute data
    .Node = "3/" + Format$(nCnt) + "/2"
    Dim strAttributeData As String = .NodeValue

    args.Add(strAttributeID, strAttributeData)
  Next

  Dim strCJID As String = args("ControlJobID")

  .Node = "3/3/2/1"
  Dim strCarrierID As String = .NodeValue

  If strCJID Is Nothing Then
    SendS14F10(strCJID, strCarrierID, "", "{<u4 444><a'CJID was not specified'>}")
    Exit Sub
  End If

  If strCarrierID Is Nothing Then
    SendS14F10(strCJID, strCarrierID, "", "{<u4 555><a'Carrier ID was not specified'>}")
    Exit Sub
  End If

  For nCnt = 0 To joblist.Items.Count - 1
    If strCJID = joblist.Items(nCnt).SubItems(2).Text Then
      ' Error : Registered
      SendS14F10(strCJID, strCarrierID, "", "{<u4 666><a'CJID is in use'>}")
      Exit Sub
    End If
  Next

  Dim nPort As Integer
  If strCarrierID = .get_VIDValue(VIDEnum.VIDCarrierID1) Then
    ' Port 1
    nPort = 1
  Else
  If strCarrierID = .get_VIDValue(VIDEnum.VIDCarrierID2) Then
    ' Port 2
    nPort = 2
  Else
    ' Error : Carrier ID doesn't match
    SendS14F10(strCJID, strCarrierID, "", "{&