[vb6] form on top

[uMoR]

ho risolto cosi
il form è on top e prende il focus ogni 50ms

DICHIARAZIONI
Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Long) As Long

NEL FORM
Private Sub Timer1_Timer()
Dim hforewnd As Long
Dim handl As Long
handl = Me.hwnd
hforewnd = GetForegroundWindow()
If handl <> hforewnd Then
SetForegroundWindow handl
Else
End If
End Sub