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

VB 没有封装 鼠标 离开的消息，你需要 自己封装一下，需要用到API ，你自己百度一下就是了。