помогите побороть timeSetEvent в VB

[bafurd]

:oops:
 помогите, plz, побороть timeSetEvent в VB.
не пинайте ногами начинающих, помогите разобраться с программированием быстрого таймера. В WinAPI фунkциях есть функция timeSetEvent. Применяю след. код :

Option Explicit
Public Main_Timer_MM As Long
Public ThisDisplay.Main_Timer_Event As Boolean
.
.
.
Public Declare Function timeSetEvent Lib "winmm.dll" (uDelay As Long, uResolution As Long, lpFunction As Long, dwUser As Long, uFlags As Long) As Long
Public Declare Function timeKillEvent Lib "winmm.dll" (uID As Long) As Long
 
 Function mainTimer() As Boolean
    If ThisDisplay.Main_Timer_Event Then
        ThisDisplay.Main_Timer_Event = False
    Else
        ThisDisplay.Main_Timer_Event = True
    End If
        If ThisDisplay.Main_Timer_Event Then
             ThisDisplay.Text0.Visible = True
             Else
              ThisDisplay.Text0.Visible = False
        End If
 End Function

Function KillTimerMM() ‘ удаление таймера
   timeKillEvent (GwxuTimer_Main.Main_Timer_MM)
End Function

Function mainTimer1()
    If Main_Timer_MM  Then
        mainTimer
    End If
       KillTimerMM
 mainTimerStart
End Function


Function mainTimerStart()
   Main_Timer_MM = timeSetEvent(5000, 50, mainTimer1, 100, 1)
   
End Function
 

код не работает - временная выдержка не формируется. В чём ошибка? Помогите разобраться!
VB, WIN: XP, 98, 2000, NT4

[Sla]

Даваяй потихонечку

Код:

Function mainTimer() As Boolean 
If ThisDisplay.Main_Timer_Event Then 
    ThisDisplay.Main_Timer_Event = False 
Else 
    ThisDisplay.Main_Timer_Event = True 
End If 
If ThisDisplay.Main_Timer_Event Then 
    ThisDisplay.Text0.Visible = True 
Else 
    ThisDisplay.Text0.Visible = False 
End If 
End Function

Переделаем?

Код:

Function mainTimer() As Boolean 
   ThisDisplay.Main_Timer_Event=Not ThisDisplay.Main_Timer_Event
   ThisDisplay.Text0.Visible = Not  ThisDisplay.Text0.Visible = False 
End Function

А вообще ты попадаешь в maintimer1?

[Naghual]

Public ThisDisplay.Main_Timer_Event As Boolean

А разве можно так объявлять переменные?
Точка есть разделитель свойств/методов объекта/класса и т.д.