Select The Year (-)

Select The Year (-)
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Day As Integer For Day = 1 To 31 'Label2.Text = ComboBox1.Text ComboBox1.Items.Add(Day) Next ComboBox1.Hide() Dim Month As Integer For Month = 1 To 12 ComboBox2.Items.Add(Month) Next Dim year As Integer For year = 1950 To 2020 ComboBox3.Items.Add(year) Next ComboBox2.Hide() Dim M As Integer For M = 1 To 31 ComboBox4.Items.Add(M) Next ComboBox3.Hide() Dim R As Integer For R = 1 To 12 ComboBox5.Items.Add(R) Next Dim H As Integer For H = 1990 To 2020 ComboBox6.Items.Add(H) Next ComboBox1.Text = Now.Day ComboBox2.Text = Now.Month ComboBox3.Text = Now.Year ComboBox4.Text = "15" ComboBox5.Text = "6" ComboBox6.Text = "1994" End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim n, i, t As Integer, d As String 'n = (ComboBox1.Text - ComboBox4.Text) 'i = (ComboBox2.Text - ComboBox5.Text) n = (ComboBox1.Text - ComboBox4.Text) i = (ComboBox2.Text - ComboBox5.Text) t = (ComboBox3.Text - ComboBox6.Text) ListBox1.ScrollAlwaysVisible = True d = n & "/" & i & "/" & t ListBox1.Items.Add(d) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Dim run, bat As Integer 'run = (ComboBox1.Text & ComboBox2.Text & ComboBox3.Text) 'bat = (ComboBox4.Text & ComboBox5.Text & ComboBox6.Text) 'TextBox1.Text = (run - bat) End End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub RadioButton1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged Me.BackColor = Color.White End Sub End Class
TECH TUNE BD