Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim Flowers(10) As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadPics()
        LoadFlowers()
End Sub 'Form1_Load

Private Sub LoadFlowers()
        Me.CboFlower.Items.Add("daisy")
        Me.CboFlower.Items.Add("lily")
        Me.CboFlower.Items.Add("orchid")
        Me.CboFlower.Items.Add("rose")
        Me.CboFlower.Items.Add("tulip")
        Me.CboFlower.Items.Add("violet")
        Me.CboFlower.SelectedIndex = 2
End Sub 'LoadFlowers

Private Sub LoadPics()
        Flowers(0) = "d:/flowers/daisy.gif"
        Flowers(1) = "d:/flowers/lily.gif"
        Flowers(2) = "d:/flowers/orchid.gif"
        Flowers(3) = "d:/flowers/rose.gif"
        Flowers(4) = "d:/flowers/tulip.gif"
        Flowers(5) = "d:/flowers/violet.gif"
End Sub 'LoadPics

Private Sub CboFlower_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboFlower.SelectedIndexChanged
        Dim Num As Integer
        Num = Me.CboFlower.SelectedIndex
        Me.Text = Me.CboFlower.Text
        Me.PicFlower.Image = Image.FromFile(Flowers(Num))
End Sub 'CboFlower_SelectedIndexChanged