'***************************************
    ' Delegate Routines
    '***************************************
    Delegate Sub OriginalSubroutine(ByVal Parameter1 as String, ByVal Parameter2 as String, ByVal Parameter3 as String)

    Public Sub Test()
        '***************************************
        ' Initialize Variables
        '***************************************
        Dim objNewThread as New ThreadedSubroutine_Start(AddressOf OriginalSubroutine)

        '***************************************
        ' Activate Seperate Thread
        '***************************************
        objCreateDatabaseThread.BeginInvoke(Parameter1, Parameter2, Paremeter3, Nothing, Nothing)
    End Sub

        '***************************************
        ' Initialize Variables
        '***************************************
        Dim objNewThread as New Threading.Thread(AddressOf SubToRun)

        '***************************************
        ' Activate Seperate Thread
        '***************************************
        objNewThread.Start()