n
      SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
   Else
      SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
   End If
End Sub

Private Sub chkEnabled_Click()
   tmrhWnd.Enabled = (chkEnabled.Value = Checked)
End Sub


Private Sub cmdOK_Click()
   Unload Me
End Sub

Private Sub Form_Load()
   tmrhWnd.Enabled = True
End Sub

Private Sub tmrhWnd_Timer()
Dim tP As POINTAPI
Dim lhWnd As Long
Dim iPos As Long
Dim sBuf As String
Dim lR As Long
   GetCur