' ClickCounter2 Example

Imports System
Imports System.Windows.Forms
Imports System.Drawing

Namespace ClickCounter2

    Public Class Form1
        Inherits Form

        Public WithEvents txtCount As TextBox
        Public WithEvents btnClickMe As Button

        Public Sub New( )

            Me.Size = New Size(250, 120)
            Me.Location = New Point(20, 20)
            Me.Text = "ClickCounter2 Example"
         
            txtCount = New TextBox( )
            txtCount.Size = New Size(200, 20)
            txtCount.Location = New Point(10, 10)
            txtCount.TextAlign = HorizontalAlignment.Right
            txtCount.Text = "0"

            btnClickMe = New Button( )
            btnClickMe.Size = New Size(200, 25)
            btnClickMe.Location = New Point(10, 50)
            btnClickMe.Text = "Click Me"

            Me.Controls.Add(txtCount)
            Me.Controls.Add(btnClickMe)

            Me.Show( )        

        End Sub

        Public Sub btnClickMe_Click(sender As Object, _
            e As EventArgs) Handles btnClickMe.Click

            txtCount.Text += 1

        End Sub

    End Class

End Namespace