Private Sub k_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
把private 改成public就可以了