Private Delegate Sub DelegateLabstatus(ByVal txt As String)
  Private DLabStatus As New DelegateLabstatus(AddressOf SetLabStatus)
 
 
 Private Sub myCallState(ByVal sender As Object, ByVal e As _
      CallStateEventArgs) Handles myTapi.CallStateChanged
        Select Case e.CallState
            Case CallState.Busy
               Me.Invoke(DLabStatus, New Object() {"Teilnehmer besetzt."})
      End Select
 End Sub
 
 
  Private Sub SetLabStatus(ByVal txt As String)
      Me.labStatus.Text = txt
  End Sub