'A rectangle that covers the whole form
Dim formRectangle As New Rectangle(0, 0, 190, 70)
'A Timer to check if the mouse is on the form
Private Sub mouseOnForm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles onForm.Tick
'If the rectangle contains the mouse coordinates of where the mouse is
If formRectangle.Contains(Me.PointToClient(System.Windows.Forms.Cursor.Position)) Then
'If it does then do this
rectangleMove.Location = New Drawing.Point(173, 2)
Me.Opacity = 0.8
Else
'If it doesn't then do this.
rectangleMove.Location = New Drawing.Point(-20, -20)
End If
Me.Refresh()
End Sub