Declare Function GetModuleHandleA Lib "Kernel32" ( nothing as Integer ) as Integer

Dim hInst as Integer
hInst = GetModuleHandleA( 0 )