Vb.net AddHandler鼠标悬停

我的代码：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim top As Integer = 0
        For i = 0 To 10
            Dim inLine As Integer = 8
            Dim left As Integer = 0
            For x = 0 To inLine
                Dim s As New Panel
                s.BackColor = Color.Black
                s.Width = 10
                s.Height = 10
                s.Left = left
                s.Top = top
                left = left + 20
                AddHandler s.MouseHover, AddressOf Panel1_MouseHover
                Me.Controls.Add(s)
            Next
            top = top + 20
        Next

    End Sub

        Private Sub Panel1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs)
   /////---- Some code!! :/ 
        End Sub

我的代码将面板添加到我的from中，
当鼠标悬停在面板上时，我希望这样 面板将更改背景色。

如果有人不明白：
当鼠标悬停在我添加到窗体的面板上时，如何更改面板的背面颜色

Private Sub Panel1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs)
       /////---- Some code to change the panel color !! :/ 
End Sub

---

我认为您缺少的部分是，事件处理程序方法的

sender

参数始终是引发事件的控件。但在使用它之前，我会将它转换为正确的类型，这样您就可以充分利用intellisense和编译器类型检查的优势

Private Sub Panel1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs)
    Dim panel As Panel = CType(sender, Panel)
    panel.BackColor = Color.White
End Sub

你的问题是什么？（提示：后面应该跟一个问号）。