Developing an application for facilitating purchase order in VB.NET

Develop an application for facilitating purchase order in vb.net
code
Public Class Form1
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem = "Jaguar" Then
ComboBox2.Items.Clear()
ComboBox2.Items.Add("Chronic black")
ComboBox2.Items.Add("White")
ComboBox2.Items.Add("Black")
ComboBox2.Items.Add("Blue")
ListBox1.Items.Clear()
ListBox1.Items.Add("Ritz")
ListBox1.Items.Add("800")
ListBox1.Items.Add("Estilo")
End If
If ComboBox1.SelectedItem = "Tata" Then
ComboBox2.Items.Clear()
ComboBox2.Items.Add("Wine Red")
ComboBox2.Items.Add("White")
ComboBox2.Items.Add("Black")
ComboBox2.Items.Add("yellow")
ListBox1.Items.Clear()
ListBox1.Items.Add("Nano")
ListBox1.Items.Add("ACE")
ListBox1.Items.Add("Sumo")
End If
If ComboBox1.SelectedItem = "Mahindra" Then
ComboBox2.Items.Clear()
ComboBox2.Items.Add("Sand silver")
ComboBox2.Items.Add("White")
ComboBox2.Items.Add("Black")
ComboBox2.Items.Add("Silver")
ListBox1.Items.Clear()
ListBox1.Items.Add("SUV")
ListBox1.Items.Add("Bolero")
ListBox1.Items.Add("KUV")
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("Jaguar ")
ComboBox1.Items.Add("Tata")
ComboBox1.Items.Add("Mahindra")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ListBox1.SelectedItem = ("Ritz") Then
TextBox1.Text = "5.2 lakhs"
End If
If ListBox1.SelectedItem = ("800") Then
TextBox1.Text = "5.0 lakhs"
End If
If ListBox1.SelectedItem = ("Estilo") Then
TextBox1.Text = "5.5 lakhs"
End If
If ListBox1.SelectedItem = ("Nano") Then
TextBox1.Text = "3.2 lakhs"
End If
If ListBox1.SelectedItem = ("ACE") Then
TextBox1.Text = "6.2 lakhs"
End If
If ListBox1.SelectedItem = ("Sumo") Then
TextBox1.Text = "5.7 lakhs"
End If
If ListBox1.SelectedItem = ("SUV") Then
TextBox1.Text = "7.2 lakhs"
End If
If ListBox1.SelectedItem = ("Bolero") Then
TextBox1.Text = "6.8 lakhs"
End If
If ListBox1.SelectedItem = ("KUV") Then
TextBox1.Text = "6.0 lakhs"
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ComboBox1.Items.Clear()
ComboBox2.Items.Clear()
TextBox1.Text = ""
ListBox1.Items.Clear()
End Sub
End Class
please like and subscribe