Public Class Form1
    Private paper As Graphics


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TrackBar1.Minimum = 0
        TrackBar1.Maximum = PictureBox1.Height
        TrackBar1.Value = 0
        Label1.Text = CStr(TrackBar1.Value)
        TrackBar2.Minimum = 0
        TrackBar2.Maximum = PictureBox1.Width
        TrackBar2.Value = 0
        Label2.Text = CStr(TrackBar2.Value)
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Dim myPen As Pen
        myPen = New Pen(Color.Yellow, 2)
        paper = PictureBox1.CreateGraphics()
        paper.Clear(Color.DarkBlue)
        TrackBar1.Value = TrackBar1.Maximum
        Label1.Text = CStr(TrackBar1.Value)
        TrackBar2.Value = TrackBar2.Maximum
        Label2.Text = CStr(TrackBar2.Value)
        paper.DrawEllipse(myPen, 0, PictureBox1.Height - TrackBar1.Value, TrackBar2.Value, TrackBar1.Value)
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        Dim myPen As Pen
        Label1.Text = CStr(TrackBar1.Value)
        myPen = New Pen(Color.Yellow, 2)
        paper = PictureBox1.CreateGraphics()
        paper.Clear(Color.DarkBlue)
        paper.DrawEllipse(myPen, 0, PictureBox1.Height - TrackBar1.Value, TrackBar2.Value, TrackBar1.Value)
    End Sub

    Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
        Dim myPen As Pen
        Label2.Text = CStr(TrackBar2.Value)
        myPen = New Pen(Color.Yellow, 2)
        paper = PictureBox1.CreateGraphics()
        paper.Clear(Color.DarkBlue)
        paper.DrawEllipse(myPen, 0, PictureBox1.Height - TrackBar1.Value, TrackBar2.Value, TrackBar1.Value)
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub TrackBar3_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class