1) AlwaysOnTop. What's a form declaration? Do you mean an API declare like SetWindowPos or something?

2) Boolean flag. Replace this code

Code:
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not m_bInLable Then

      m_bInLable = True
      TT.Title = "Information"
      TT.TipText = CStr(X)      
      TT.Create Command1.hWnd
   End If
   
   'Exit Sub
End Sub
with this code:
Code:
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)


      TT.Title = "Information"
      TT.TipText = CStr(X)      
      TT.Create Command1.hWnd
   
   
   
End Sub
Why in the second case the tooltip doesn't show up?