Multiple Form Project

Form 1
Public Class Mainform Inherits System.Windows.Forms.Form Dim dlg As New datedialogbox() Dim fr As New Form4() Dim FRM As New textboxform() Private Sub Mainform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub btndatedialog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndatedialog.Click dlg.Cmbday.Text = Now.Day dlg.cmbmonth.Text = Now.Month dlg.cmbyear.Text = Now.Year dlg.Show() End Sub Private Sub btntxtform_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntxtform.Click FRM.TextBox1.Text = "01741515923" FRM.Show() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnexit.Click Me.FRM.Close() Me.dlg.Close() End End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged Me.BackColor = Color.Red End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged Me.BackColor = Color.Green End Sub Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged Me.BackColor = Color.Blue End Sub Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub CheckBox4_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick TextBox1.Text = TimeOfDay End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged TextBox1.Font = New Font("impact", 20.0!) TextBox1.Size = New Size(130, 25) End Sub Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click fr.Show() End Sub End Class
Form 2
Public Class textboxform Private Sub btninput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninput.Click Me.Label1.Text = TextBox1.Text Me.Label1.Hide() End Sub Private Sub btnread_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnread.Click Me.Label2.Text = Label1.Text End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub textboxform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = "" TextBox1.Focus() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Hide() End Sub End Class
Form 3
Public Class datedialogbox Private Sub datedialogbox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim year As Integer For year = 1900 To 2050 cmbyear.Items.Add(year) Next Dim month As Integer For month = 1 To 12 cmbmonth.Items.Add(MonthName(month)) Next Dim day As Integer For day = 1 To 31 Cmbday.Items.Add(day) Next End Sub Private Sub Btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncancel.Click Me.Close() End Sub Private Sub Btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnok.Click TextBox1.Text = (Cmbday.Text & " " & cmbmonth.Text & " " & cmbyear.Text) End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged Me.BackColor = Color.Green Me.Width = Width + 20 Me.Height = Height + 20 End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged Me.BackColor = Color.Red Me.Width = Width - 20 Me.Height = Height - 20 End Sub Private Sub Cmbday_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmbday.SelectedIndexChanged End Sub Private Sub cmbmonth_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbmonth.SelectedIndexChanged End Sub End Class