Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Me.Caption = "坐标" & X & ":" & YEnd Sub
