Private Sub _timer_CursorPos_Tick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles _timer_CursorPos.Tick
        Try
            If _form_MainForm.RectangleToScreen( _
              _form_MainForm.ClientRectangle).Contains(Cursor.Position) Then
                MouseIsOnForm = True
            Else
                MouseIsOnForm = False
            End If
        Catch ex As Exception
            Debug.Print(ex.ToString)
        End Try
    End Sub

    Public Sub _threadsub_FormScroller()
        Try
            Do
                If MouseIsOnForm = True Then
                    _form_MainForm.Invoke(New _threaddel_FormScroller(AddressOf _
                      SetMainFormTop), New Object() {0, 1})
                ElseIf MouseIsOnForm = False Then
                    If MainFormTop > -MainFormHeight + 1 Then
                        Dim OpacityValue As Double = MainFormOpacity
                        If OpacityValue > 0.1 Then
                            OpacityValue -= 0.1
                            _form_MainForm.Invoke(New _threaddel_FormScroller( _
                              AddressOf SetMainFormTop), New Object() _
                              {MainFormTop - 1, OpacityValue})
                        Else
                            _form_MainForm.Invoke(New _threaddel_FormScroller( _
                              AddressOf SetMainFormTop), New Object() {1 - _
                              MainFormHeight, 0.1})
                        End If
                        Threading.Thread.Sleep(20)
                    End If
                End If
                Threading.Thread.Sleep(10)
            Loop
        Catch ex As Exception
            AddDebugMessage(ex.ToString)
        End Try
    End Sub