#include once "windows.bi"

Function ThreadProc( _
        ByVal lpParameter As LPVOID _
    )As DWORD
    
    ' делаем любую полезную работу
    
    Return 0
    
End Function

Dim resCreateTask As BOOL = QueueUserWorkItem( _
    @ThreadProc, _
    Указатель на параметр, _
    WT_EXECUTEDEFAULT _
)
If resCreateTask = 0 Then
    Dim dwError As DWORD = GetLastError()
    Print "Ошибка постановки задачи для обработки!", dwError
End If