[FONT=Arial][COLOR=#222222][COLOR=#777777][FONT=Arial]'Modules sur la recherche de Contrat[/FONT][/COLOR]
[COLOR=#777777][FONT=Arial]Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _[/FONT][/COLOR]
[COLOR=#777777][FONT=Arial] (ByVal lpBuffer As String, nSize As Long) As Long[/FONT][/COLOR]
[COLOR=#777777][FONT=Arial] 'Public Declare Function GetUserName Lib "C:\Windows\SysWOW64\advapi32.dll" Alias "GetUserNameA" _[/FONT][/COLOR]
[COLOR=#777777][FONT=Arial] '(ByVal lpBuffer As String, nSize As Long) As Long[/FONT][/COLOR]
[COLOR=#777777][FONT=Arial]Global g_HostSettleTime%[/FONT][/COLOR]
[COLOR=#777777][FONT=Arial]Public Sub Recherche_contrat()[/FONT][/COLOR]
[COLOR=#777777][FONT=Arial]Dim Sys As Object, Sess0 As Object, MyScreen As Object, MyArea As Object[/FONT][/COLOR]
[COLOR=#777777][FONT=Arial]Dim tmp$[/FONT][/COLOR]
[COLOR=#777777][FONT=Arial] Set Sys = CreateObject("EXTRA.System") ' Gets the system object[/FONT][/COLOR]
[COLOR=#777777][FONT=Arial] g_HostSettleTime = 200 ' milliseconds[/FONT][/COLOR]
[COLOR=#777777][FONT=Arial] Set Sess0 = Sys.ActiveSession[/FONT][/COLOR]
[COLOR=#777777][FONT=Arial] 'MsgBox ("it's work ")[/FONT][/COLOR]
[COLOR=#777777][FONT=Arial] Set Myscreen0 = Sess0.screen [COLOR=#777777][FONT=Arial]'[/FONT][/COLOR][COLOR=#777777][FONT=Wingdings][FONT=Wingdings]ß[/FONT][/FONT][/COLOR][COLOR=#777777][FONT=Arial]this is exacly the source of problem[/FONT][/COLOR][/FONT][/COLOR]
[COLOR=#777777][FONT=Arial]End Sub[/FONT][/COLOR]
[/COLOR][/FONT]