你看看是不是想要这个效果
Private Sub Form_Load()
Label1.ForeColor = "0,0,0"
Label2.ForeColor = "0,0,0"
Label3.ForeColor = "0,0,0"
Fla1.Movie = "h:/c/vc++ 视频/101.swf"
Fla1.Playing = True
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = "0,0,255"
Label2.ForeColor = "0,0,0"
Label3.ForeColor = "0,0,0"
Fla1.Playing = True
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = "0,0,0"
Label2.ForeColor = "0,0,255"
Label3.ForeColor = "0,0,0"
Fla1.Stop
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = "0,0,0"
Label2.ForeColor = "0,0,0"
Label3.ForeColor = "0,0,255"
Fla1.Playing = True
End Sub