Dim a1 As String
    Dim a2 As String
    Private inrec As Boolean
 
    Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        If e.Y > 151 Or e.Y < 167 = True Then
            a2 = Label1.Location.Y - 4
            inrec = New Rectangle(0, a2, a1, 20).Contains(e.Location)
            Panel1.Invalidate(New Rectangle(0, a2, a1, 20))
        End If
    End Sub
    Private Sub Panel1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
        e.Graphics.FillRectangle(If(inrec, Brushes.LightYellow, Brushes.White), _
        New Rectangle(0, a2, a1, 20))
    End Sub
    Private Sub Panel1_SizeChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Panel1.SizeChanged
        a1 = Panel1.Width
    End Sub