' __In der Form
Private Sub Command1_Click()
    hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf TueirgendwasThread, _
                 ByVal 0&, ByVal 0&, hThreadID)
    CloseHandle hThread
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    If hThread <> 0 Then TerminateThread hThread, 0
End Sub
 
'__in einem Modul!!!
Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, _
    ByVal dwStackSize As Long, ByVal lpStartAddress As Long, _
    lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As _
    Long
 
Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, _
    ByVal dwExitCode As Long) As Long
 
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Public hThread As Long, hThreadID As Long
 
Public Function TueirgendwasThread(Byval nValue As Long) As Long
    Msgbox "Ich bin's, der Thread :-)"
    hThread = 0
    TueirgendwasThread = hThread
End Sub