Converting VB to ObjBridge

Imports STMLCONTROLLib
Public Class frmSTCallLogTest
Private WithEvents STCtl As STMLCONTROLLib.Ctl
Private nLineID As Long
 
Private Sub frmSTCallLogTest_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
   STCtl = New STMLCONTROLLib.Ctl
   ' Once the control is created, we initialize it
   STCtl.Initialize()
End Sub
 
Private Sub STCtl_EventReady() Handles STCtl.EventReady
   Dim CtlEvent() As Object
 
   Do
      CtlEvent = STCtl.GetNextEvent()
      Dim ev As ControlEvent
      ev = CtlEvent(0)
      ' If no more events are pending then get out and wait for
      ' next callback
      If ev = ControlEvent.cevNone Then Exit Do
      ' Is this a line state event?
      If ev = ControlEvent.cevLineState Then
         ' LINESTATE EVENT
         ' Get the line ID for the event
         Dim nLineEventLineID As Long
         nLineEventLineID = CtlEvent(1)
         ' Get the line state for the event
         Dim LineState As ShoreTelLineState
         LineState = CtlEvent(2)
         ' Have we set our line yet?
         If nLineID = 0 And _
            LineState = ShoreTelLineState.slsCreated Then
            ' Nope, we need to check to see if we want to use 
            ' this line
            ' If the user passed a command line, we use that 
            ' as the line address.
            ' If not then we use the first ShoreTel line we
            ' are notified about'
            ' On a client, this will be user's station address
            ' as clients only have
            ' a single ShoreTel line
            ' If the command line is empty then use this line
            If Command() = "" Then
               nLineID = nLineEventLineID
            Else
               ' They are looking for a specific line, retrieve 
               ' new line's address
               Dim strAddress As String
               strAddress = STCtl.LineGetAddress(nLineEventLineID)
               If Command() = strAddress Then 
                  nLineID = nLineEventLineID
            End If
            ' Open the line if we set it
            If nLineID <> 0 Then STCtl.LineOpen(nLineID)
            ElseIf nLineID <> 0 And nLineEventLineID = nLineID Then
               ' We already have a line
               ' If this line was removed then clear our line
               If LineState = ShoreTelLineState.slsRemoved Then
                  nLineID = 0
            End If
            ' Update the the button state to reflect the 
            ' inservice and connected status of the line
            If nLineID = 0 Then 
               labelLineStatus.Text = "NO LINE"
            Else
               If STCtl.LineIsConnectedInService(nLineID) Then
                  labelLineStatus.Text = _
                     STCtl.LineGetAddress(nLineID) + ": OPEN"
               ElseIf STCtl.LineIsInService(nLineID) Then
                  labelLineStatus.Text = _
                     STCtl.LineGetAddress(nLineID) + _
                     ": UNCONNECTED"
               Else
                  labelLineStatus.Text = _
                     STCtl.LineGetAddress(nLineID) + _
                     ": OUT OF SERVICE"
            End If
         End If
         ' Is this a call state event?
     ElseIf ev = ControlEvent.cevCallState Then
         Dim nCallEventLineID As Long
         nCallEventLineID = CtlEvent(1)
         Dim nCallEventCallID As Long
         nCallEventCallID = CtlEvent(2)
         Dim CallEventCallState As TAPICallState
         CallEventCallState = CtlEvent(3)
         ' CtlEvent(4) contains the call state details
         ' CtlEvent(5) contains source line ID if the 
         ' call was transfered
         ' CtlEvent(6) contains source call ID if the 
         ' call was transfered
         ' Is this an offering call?
         If CallEventCallState = TAPICallState.tcsOffering Then
            ' Yes, we want to add it to our list
            ' First, are there more then 10 entries in the list?
            If Log.Items.Count = 10 Then
               ' Yes, remove the last one
               Log.Items.Remove(Log.Items.Count - 1)
            End If
            ' Now add this item as the first item in the list
            Dim str As String
            str = STCtl.CallGetCallerID(nCallEventCallID)
            If (Microsoft.VisualBasic.Left(str, 2) = "+1") Then 
               str = DateTime.Now.ToString + " " + _
                     Microsoft.VisualBasic.Right(str, 10)
            Clipboard.Clear()
            Clipboard.SetDataObject(str, True)
            Log.Items.Add(str)
         End If
      End If
   Loop
End Sub
End Class