MouseEnter Event problem for panel with 'Dock' property

Try this

Public Class Form1
Dim pt As Point
  Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  Panel1.Width = 10
  End Sub
 
  Private Sub Panel1_MouseEnter(sender As System.Object, e As System.EventArgs) Handles Panel1.MouseEnter
  Panel1.Width = 200
  End Sub

  Private Sub Panel1_MouseLeave(sender As System.Object, e As System.EventArgs) Handles Panel1.MouseLeave
  If pt.X > Panel1.Width - 10 Then
  Panel1.Width = 10
  End If
  If pt.Y < 10 Then
  Panel1.Width = 10
  ElseIf pt.Y > (Panel1.Height - 10) Then
  Panel1.Width = 10
  End If
  End Sub

  Private Sub Panel1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
  pt = e.Location
  End Sub
End Class