设窗体上有一个名称为Label1 的标签。程序运行时,按下鼠标左键并拖动鼠标时,鼠标的位置坐标会实时地显示在Label1 标签中;按下鼠标右键并移动鼠标时,则停止实时显示,并将标签中的内容清除。下面的程序可实现这一功能,请填空。 Private Sub Form_MouseMove (Button As Integer,Shift As Integer,X As Single,Y As Single) If 【6】 Then Label1.Caption = ′′X=′′ & X & ′′ Y=′′ & Y ElseIf 【7】 Label1.Caption = ′′′′ End If End Sub