Dim t1 As TextBox = New TextBox
    Dim t2 As TextBox = New TextBox
    Dim b As Button = New Button
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        CreateGraphics.DrawLine(New Pen(Color.Black, 10), e.X, e.Y, e.X + 5, _
        e.Y + 5)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        Me.Form1_MouseDown(New Form1, New MouseEventArgs(MouseButtons.Left, 1, _
        t1.Text, t2.Text, 1))
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        b.Text = "Go.."
        t1.Text = 100
        t2.Text = 100
        t1.Location = New Point(10, 0)
        t1.Location = New Point(120, 0)
        b.Location = New Point(240, 0)
        AddHandler b.Click, AddressOf Me.Button1_Click
        Me.Controls.AddRange(New Control() {t1, t2, b})
    End Sub