Multithreading

[bmarzouk]

How to do Multithread programming using Visual Basic ?

[Vlatko]

'In a form
'Add a command button to the form
Private Sub Command1_Click()
'After you click this button, try to move the window
'You will see that the AsyncThread-function was executed asynchronously
Dim hThread As Long, hThreadID As Long
hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf AsyncThread, ByVal 0&, ByVal 0&, hThreadID)
CloseHandle hThread
End Sub
'In a module
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
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 CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Sub AsyncThread()
'Let this thread sleep for 10 seconds
Sleep 10000
End Sub


But note thet this is not as good as it can be done in C++. Also this is a very complex area of windows programming.

[Un1]

No GPF!

http://www.banasoft.com/Winsock.htm
http://www.banasoft.com/Comm.htm