コードが間違っていました。次のように訂正しますPrivate Sub Dir1_MouseMove(x as single, y as single, ....)'マウスの位置 GetCursorPos MoP 'その位置を表示 Label1.Caption = "マウス座標 X=" & MoP.x & " Y=" & MoP.yEnd Sub