如何实现鼠标滑过图像框时出现边框，离开则边框消失。本人写了以下代码：
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.BorderStyle = 1
End Sub
只能实现鼠标滑过图像框时出现边框，离开边框不消失，怎么办？我是菜鸟，望大虾们指教。