Kedze som nuteny v praci upravit jednu aplikaciu vo VB6 na multithread synchronizaciu, potreboval som nastudovat pouzitie Mutexov vo VB... kto by take nieco potreboval, tu ma zakladne Declares a Const na bezne pouzitie:

' Mutex related WinAPI imports
Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As Any, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenMutex Lib "kernel32" Alias "OpenMutexA" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal lpName As String) As Long
Private Declare Function ReleaseMutex Lib "kernel32" (ByVal hMutex As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

' WinAPI constants
Const MUTEX_ALL_ACCESS = 2031617
Const WAIT_OBJECT_0 = 0&
Const WAIT_TIMEOUT = 258&


pri volani potom treba Long-y predavat ako:

MutexHandle = CreateMutex(ByVal 0&, 0, "VBMUTEX02")