Dim Thread As New Threading.Thread(AddressOf Zählen)

Dim Thread As New Threading.Thread(AddressOf mycls.Zaehlen(parameter, _
  parameter))

Wissen ist Macht !!
-------------------------

    Public Sub tr(ByVal o As Object)
        ' ....
    End Sub
 
    Private Sub Test()
        Dim t As New System.Threading.Thread(AddressOf tr)
        t.Start(irgendeinObjekt)
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov

Public Class eBayAPI
 
    Public Function getSellerList(ByRef lvw As ListView, ByVal von As _
      DateTimePicker, ByVal bis As DateTimePicker, ByVal strUserID As String) _
      As Boolean
   ' .............
    end Function 
 
end class

Wissen ist Macht !!
-------------------------

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov

Wissen ist Macht !!
-------------------------

    Public Class TObj
        Public Field1 As String
        Public Field2 As Integer
        ' ... usw
 
        Public Sub New(.....)
            ' ... Felder initialisieren
        End Sub
 
        ' Thread-Methode
        Public Sub DoIt()
            ' ....
        End Sub
    End Class
 
    Private Sub Test()
        Dim tobj1 As New TObj(....)
        Dim t As New System.Threading.Thread(AddressOf tobj1.DoIt)
        t.Start()
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov

Wissen ist Macht !!
-------------------------

                Dim clsebay2 As New eBayAPI()
                clsebay2.bis = DatePickerBis
                clsebay2.von = DateTimePickerVon
                clsebay2.lvw = lvweBayLiveList
                clsebay2.strUserID = strINI_eBay.strUserName
                Dim t As New System.Threading.Thread(AddressOf _
                  clsebay2.getSellerList)
                t.Start()

    '##################################################################
    '# >> getSellerList 
    '# 
    '# Beschreibung: Fragt die eBay Verkäuferliste ab.
    '##################################################################
    'Public Function getSellerList(ByRef lvw As Object, ByVal von As Object, 
    ' ByVal bis As Object, ByVal strUserID As Object) As Boolean
 
    Sub getSellerList(Optional ByVal test As String = "")
 
        Try
 
            lvw.Items.Clear()
 
            Dim apicall As GetSellerListCall = New GetSellerListCall(Context)
            apicall.DetailLevelList.Add(DetailLevelCodeType.ReturnAll)
 
            'Pagination is required
            apicall.Pagination = New PaginationType()
            apicall.Pagination.PageNumber = 1
            apicall.Pagination.EntriesPerPage = 200
 
            If strUserID.Length > 0 Then
                apicall.UserID = strUserID
            End If
 
            'MsgBox(von.Text & " " & bis.Text)
 
            apicall.StartTimeFilter = New TimeFilter(von.Value, bis.Value)
            'apicall.EndTimeFilter = New TimeFilter(von.Value, bis.Value)
 
 
            Dim sellerlist As ItemTypeCollection = apicall.GetSellerList()
            Dim item As ItemType
 
            '# Liste der eBay Artikel holen
            For Each item In sellerlist
                Dim listparams(6) As String
 
                listparams(0) = item.ItemID
                listparams(1) = item.Title
                listparams(2) = item.SellingStatus.CurrentPrice.Value.ToString()
                listparams(3) = item.StartPrice.Value
                listparams(4) = item.SellingStatus.BidCount.ToString()
                listparams(5) = "---"
                listparams(6) = Date.Now
 
 
                Dim vi As ListViewItem = New ListViewItem(listparams)
                lvw.Items.Add(vi)
 
            Next item
 
 
        Catch ex As Exception
            Call debug_message(ex.Message, "getSellerList")
            bIsRefreshing_live = False
        End Try
 
 
    End Sub

Wissen ist Macht !!
-------------------------

Wissen ist Macht !!
-------------------------