Dim C As Long
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Picture1.BackColor <> C Then Picture1.BackColor = C
End Sub
Private Sub Picture1_Click()
Picture1.BackColor = QBColor(5)
C = Picture1.BackColor
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.BackColor = QBColor(10)
End Sub
温馨提示:答案为网友推荐,仅供参考