|
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
MDIForm1.Picture1.Cls
MDIForm1.Picture1.Print "日本"
End Sub
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X
As Single, Y As Single)
MDIForm1.Picture1.Cls
MDIForm1.Picture1.Print "美國"
End Sub |