Whats wrong with this?
-------------
Fred
mailto:[email protected][email protected]</A>
http://www.oxenby.se
Code:
Function OPT_BarrLogg(ByVal hWnd&)Export As Long Local ThreadId As Long Local Tmp$,Cnt&,IniFil$ IniFil$=FSO_AppIniFile() '--om inget Window så skapa den------- If ghBarrLog = 0 Then Thread Create CreateBarrForm(hWnd&) To ThreadId Thread Close ThreadId To ThreadId '--Vänta på att det skapas------------ End If '--om ingen inifil så skapa den------------ Local X% If IsFalse FSO_FileExists(Inifil$) Then X%=FreeFile Open IniFil For Append Shared As #X% Close X% End If '--läs in från Inifilen--------------- Sleep 100 Local i& For i& = 1 To 10 Tmp$ = INI_GetSetting(IniFil$,"BARRLOGG",Format$(i&),"") Control Set Text ghBarrLog,100+i&,Tmp$ Next i& Function = %True End Function
Error 402 in LOGGAR.BAS(33:1): Statement too complex
Line 33: Next i&
Line 33: Next i&
Fred
mailto:[email protected][email protected]</A>
http://www.oxenby.se
Comment