Public Class Form1
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		ComboBox1.Items.Add("Sunday")
		ComboBox1.Items.Add("Monday")
		ComboBox1.Items.Add("Tuesday")
		ComboBox1.Items.Add("wednesday")
		ComboBox1.Items.Add("Thursday")
		ComboBox1.Items.Add("Friday")
		ComboBox1.Items.Add("Saturday")

		ComboBox1.SelectedItem = ComboBox1.Items(3)
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim var As String
		var = ComboBox1.Text
		MsgBox(var)
	End Sub
End Class