Combobox İle Seçilen Bir Nesneyi Listbox'da Açıklamak

Bu konumuzda visual basic de Combobox'ta seçilen bir  Itemin  açıklamasını Listbox'a ekleyeceğiz. 

Forma eklemeniz gereken araçlar:

4 tane PictureBox - Visible bölümünü False olarak ayarlayın,  1 tane Combobox ve 1 Listbox ekleyin. 

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "ibrahimfirat.net" Then
            PictureBox4.Visible = True
            PictureBox1.Visible = False
            PictureBox2.Visible = False
            PictureBox3.Visible = False
            ListBox1.Items.Clear()
            ListBox1.items.add("Genel Bilgi Portalır.")
        End If
        If ComboBox1.Text = "gökyüzü" Then
            PictureBox2.Visible = True
            PictureBox1.Visible = False
            PictureBox4.Visible = False
            PictureBox3.Visible = False
            ListBox1.Items.Clear()
            ListBox1.Items.Add("Gökyüzü  Masmavi Hiç Bulut Yok.")
        End If
        If ComboBox1.Text = "Kuşlar" Then
            PictureBox3.Visible = True
            PictureBox1.Visible = False
            PictureBox2.Visible = False
            PictureBox4.Visible = False
            ListBox1.Items.Clear()
            ListBox1.items.add("Kartallar Yükseklerde uçar")
        End If
        If ComboBox1.Text = "Balık" Then
            PictureBox1.Visible = True
            PictureBox4.Visible = False
            PictureBox2.Visible = False
            PictureBox3.Visible = False
            ListBox1.Items.Clear()
            ListBox1.Items.Add("balıkların hafızası 3 saniyedir")
        End If
      
    End Sub