Public Class Form1 Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint 'この2行をコメントにすると通常の座標系になります。 e.Graphics.TranslateTransform(0, Me.ClientSize.Height) '左下(つまり、0,Me.ClientSize.Height)を新しい原点にする。 e.Graphics.ScaleTransform(1, -1) 'Y軸方向を反転させる。つまり上方向がプラスになる。 '背景を黒にする e.Graphics.Clear(Color.Black) '三角形 e.Graphics.DrawLine(Pens.LightBlue, 300, 20, 200, 193) e.Graphics.DrawLine(Pens.LightBlue, 200, 193, 400, 193) e.Graphics.DrawLine(Pens.LightBlue, 400, 193, 300, 20) '円A(青) e.Graphics.FillEllipse(Brushes.Blue, 290, 10, 20, 20) e.Graphics.DrawString("A", Me.Font, Brushes.LightCyan, 295, 15) e.Graphics.DrawString("x=300, y=20", Me.Font, Brushes.LightCyan, 312, 15) '円B(赤) e.Graphics.FillEllipse(Brushes.Red, 190, 183, 20, 20) e.Graphics.DrawString("B", Me.Font, Brushes.LightCyan, 195, 188) e.Graphics.DrawString("x=200, y=193", Me.Font, Brushes.LightCyan, 190, 208) '円C(緑) e.Graphics.FillEllipse(Brushes.Green, 390, 183, 20, 20) e.Graphics.DrawString("C", Me.Font, Brushes.LightCyan, 395, 188) e.Graphics.DrawString("x=400, y=193", Me.Font, Brushes.LightCyan, 390, 208) End Sub End Class