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

Namespace DefaultNamespace
	
	Public Class Form1
		Inherits System.Windows.Forms.Form
		Private oldvalue As Integer
		Private label2 As System.Windows.Forms.Label
		Private label1 As System.Windows.Forms.Label
		Private Text2 As System.Windows.Forms.TextBox
		Private Bt2 As System.Windows.Forms.Button
		Private Bt1 As System.Windows.Forms.Button
		Private Text1 As System.Windows.Forms.TextBox
		Public Sub New()
			MyBase.New
			'
			' The Me.InitializeComponent call is required for Windows Forms designer support.
			'
			Me.InitializeComponent
			'
			' TODO : Add constructor code after InitializeComponents
			'
		End Sub
		
		#Region " Windows Forms Designer generated code "
		' This method is required for Windows Forms designer support.
		' Do not change the method contents inside the source code editor. The Forms designer might
		' not be able to load this method if it was changed manually.
		Private Sub InitializeComponent()
			Me.Text1 = New System.Windows.Forms.TextBox
			Me.Bt1 = New System.Windows.Forms.Button
			Me.Bt2 = New System.Windows.Forms.Button
			Me.Text2 = New System.Windows.Forms.TextBox
			Me.label1 = New System.Windows.Forms.Label
			Me.label2 = New System.Windows.Forms.Label
			Me.SuspendLayout
			'
			'Text1
			'
			Me.Text1.Location = New System.Drawing.Point(64, 8)
			Me.Text1.Name = "Text1"
			Me.Text1.TabIndex = 2
			Me.Text1.Text = "3"
			'
			'Bt1
			'
			Me.Bt1.Location = New System.Drawing.Point(208, 232)
			Me.Bt1.Name = "Bt1"
			Me.Bt1.TabIndex = 0
			Me.Bt1.Text = "Bt1"
			AddHandler Me.Bt1.Click, AddressOf Me.Bt1Click
			'
			'Bt2
			'
			Me.Bt2.Enabled = false
			Me.Bt2.Location = New System.Drawing.Point(320, 232)
			Me.Bt2.Name = "Bt2"
			Me.Bt2.TabIndex = 1
			Me.Bt2.Text = "Bt2"
			AddHandler Me.Bt2.Click, AddressOf Me.Bt2Click
			'
			'Text2
			'
			Me.Text2.Location = New System.Drawing.Point(240, 8)
			Me.Text2.Name = "Text2"
			Me.Text2.TabIndex = 3
			Me.Text2.Text = "3"
			'
			'label1
			'
			Me.label1.Location = New System.Drawing.Point(8, 8)
			Me.label1.Name = "label1"
			Me.label1.Size = New System.Drawing.Size(48, 24)
			Me.label1.TabIndex = 4
			Me.label1.Text = "Text1"
			'
			'label2
			'
			Me.label2.Location = New System.Drawing.Point(192, 8)
			Me.label2.Name = "label2"
			Me.label2.Size = New System.Drawing.Size(48, 24)
			Me.label2.TabIndex = 5
			Me.label2.Text = "Text2"
			'
			'Form1
			'
			Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
			Me.ClientSize = New System.Drawing.Size(400, 262)
			Me.Controls.Add(Me.label2)
			Me.Controls.Add(Me.label1)
			Me.Controls.Add(Me.Text2)
			Me.Controls.Add(Me.Text1)
			Me.Controls.Add(Me.Bt2)
			Me.Controls.Add(Me.Bt1)
			Me.Name = "Form1"
			Me.Text = "Form1"
			AddHandler Load, AddressOf Me.Form1Load
			Me.ResumeLayout(false)
		End Sub
		#End Region
		
		Private Sub Form1Load(sender As System.Object, e As System.EventArgs)
			oldvalue = 3
		End Sub
		
		Private Sub Bt1Click(sender As System.Object, e As System.EventArgs)
			Text1.Text = (Convert.ToInt32(Text1.Text) * 2).ToString()
			Bt1.Enabled = False
			Bt2.Enabled = True
		End Sub
		
		Private Sub Bt2Click(sender As System.Object, e As System.EventArgs)
			Bt1.Enabled = true
			Bt2.Enabled = False
			If(Convert.ToInt32(Text1.Text) > oldvalue)
				Text1.Text = (Convert.ToInt32(Text1.Text) / 2).ToString
				oldvalue = Convert.ToInt32(Text1.Text)
			End If
		End Sub
		
	End Class
End Namespace