Как сделать, чтобы выбрав в ComboBox, например, "выбор 1" выполнилось действие

[nick]Moxer[/nick], 
If ComboBox.SelectedItem = "blala"then
call name_of_procedure
Else if...
.....
End if

Private Sub ComboBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        'Получаем выбранное в комбобоксе значение района
        raion = ComboBox1.SelectedItem
        'И заполняем DG_2 списком руководителей
        obnovlenie_DG_2()
    End Sub

Private Sub zagruzka_form_1()
        conn = New OleDbConnection
        'объявляем подключение к базе данных
        conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & adr_DB & ";Persist Security Info=False;"
 
        'conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\база_данных.accdb;Persist Security Info=False;"
        conn.Open()
 
 
        'Заполняем КомбоБокс значениями районов
        Dim c As New OleDbCommand("select distinct КонтрАгент.Район from КонтрАгент", conn)
        Dim dr As OleDbDataReader = c.ExecuteReader
        ComboBox1.Items.Clear()
        While dr.Read()
            ComboBox1.Items.Add(dr(0))
        End While
        dr.Close()
 
    End Sub

If ComboBox1.Items.Count <> 0 Then ComboBox1.SelectedIndex = 0

Private Sub ComboBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    'Получаем выбранное в комбобоксе значение района
    raion = ComboBox1.SelectedItem
    ComboBox1.Text = ComboBox1.SelectedItem
    'И заполняем DG_2 списком руководителей
    obnovlenie_DG_2()
End Sub

ComboBox1_SelectedIndexChanged_1

Handles ComboBox1.SelectedIndexChanged