Public Class Form1

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 Dim RESIM As New Bitmap(PictureBox1.Width, PictureBox1.Height)
 Dim CIZ As Graphics = Graphics.FromImage(RESIM)
 CIZ.TranslateTransform(0, PictureBox1.Height)
 CIZ.ScaleTransform(1, -1)

 CIZ.DrawLine(New Pen(Color.Black, 2), 0, 0, PictureBox1.Width - 50, PictureBox1.Height - 50)
 CIZ.DrawArc(New Pen(Color.Black, 2), 90, 5, 100, 100, 180, 90)
 CIZ.DrawEllipse(New Pen(Color.Black, 2), 100, 100, 50, 50)
 CIZ.DrawRectangle(New Pen(Color.Black, 2), 100, 100, 50, 50)
 CIZ.FillEllipse(Brushes.Blue, 120, 120, 50, 50)


 CIZ.ResetTransform() : CIZ.RotateTransform(-90)
 CIZ.DrawString("TELAT1", New Font("ARIAL", 20), Brushes.Red, -200, 400)
 CIZ.ResetTransform()

 CIZ.DrawString("TELAT2", New Font("ARIAL", 20), Brushes.Red, 400, 200)
 PictureBox1.Image = RESIM

 End Sub

 Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
 Me.Text = e.X & " / " & PictureBox1.Height - e.Y
 End Sub

End Class