能否让picturebox或images控件在鼠标移入时自动改变图片框中的图片（急）

Question

呵呵，可以啊，在OnMouseMove事件中改变图片就是了。

Answer 1

filename1是原图，filename2是新图。
Option Explicit
Dim I, P As BooleanPrivate Sub Form_Load()    Image1.Picture = LoadPicture(filename1)
    Picture1.Picture = LoadPicture(filename1)End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    I = False
    P = False
    Image1.Picture = LoadPicture(filename1)
    Picture1.Picture = LoadPicture(filename1)End SubPrivate Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    If Not I Then Image1.Picture = LoadPicture(filename2)
    I = TrueEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    If Not P Then Picture1.Picture = LoadPicture(filename2)
    P = TrueEnd Sub

Answer 2

To  sundayboys(sunboy)根本就没有OnMouseMove事件啊！