Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click Dim sp As System.Drawing.Point = System.Windows.Forms.Cursor.Position Dim cp As System.Drawing.Point = Me.PointToClient(sp) Dim schoolP As System.Drawing.Point = Me.PointToSchool(cp) Dim x As Integer = schoolP.X Dim y As Integer = schoolP.Y Label1.Text = "X:" & x & "Y:" & y & "" End Sub ''' <summary> ''' 座標を学校座標系に変換します。 ''' </summary> ''' <returns></returns> Private Function PointToSchool(p As Point) As Point Dim x As Integer = p.X Dim y As Integer = Me.ClientSize.Height - p.Y Return New Point(x, y) End Function