Il valore restituito dalla lgConnect e' un int che e' un intero a 32 bit equivalente al Long del VB e non all' Integer. Prova quindi

Declare Function Connect Lib "libgthing.dll" Alias "lgConnect" (ByVal hgdiobj As String) As Long