Public Delegate Sub AnhangDelegate(ByVal nIcon As _
  Subsembly.FinTS.Online.FinDocketIcon, ByVal sText As String)
 
Public Sub Anhaengen(ByVal nIcon As Subsembly.FinTS.Online.FinDocketIcon, ByVal _
  sText As String)
        lvi = New ListViewItem(sText, CInt(nIcon))
        docketListView.Items.Add(lvi)
        docketListView.Columns(0).Width = -1
        lvi.EnsureVisible()
End Sub
 
Public Sub Append(ByVal nIcon As Subsembly.FinTS.Online.FinDocketIcon, ByVal _
  sText As String) Implements Subsembly.FinTS.Online.IFinDocket.Append
        docketListView.Invoke(New AnhangDelegate(AddressOf Anhaengen), New _
        Object() {nIcon, sText})
End Sub