为谁么鼠标MouseMove事件没作用啊 那位帮看看

Private Sub PB1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
PB1.BorderStyle = BorderStyle.None
MsgBox("你点到我了")
End Sub
PB1是个picturebox 我用的是vs2012 其他点击事件都可以就是这个没作用