example

Imports System.Threading

Module Module1

    Public Sub Main()
        startSvert("127.0.0.1", 8080)
    End Sub

    Public Sub startSvert(ByVal IP As String, ByVal Port As Integer)
        Dim t As New Thread(AddressOf ThreadProc)
        t.Start(New Tuple(Of String, Integer)(IP, Port))
    End Sub

    Public Sub ThreadProc(ByVal info As Tuple(Of String, Integer))
        Dim IP As String = info.Item1
        Dim Port As Integer = info.Item2
        'Something
    End Sub

End Module