Initial Form

Initial Code

Option Explicit

     Private Sub cmbBBQ_LostFocus()
          lblCombo.Caption = "Combo Box text is: " & cmbBBQ.Text
     End Sub

     Private Sub cmdFillCombo_Click()
          Dim I As Integer
          For I = 0 To lstBBQ.ListCount - 1
               cmbBBQ.AddItem lstBBQ.List(I)
          Next I
     End Sub

     Private Sub cmdMulti_Click()
          Dim I As Integer
          lstMulti.Clear
               'If an item is selected, add it to lstMulti
               For I = 0 To lstBBQ.ListCount - 1
                    If lstBBQ.Selected(I) Then
                         lstMulti.AddItem lstBBQ.List(I)
                    End If
          Next
     End Sub

     Private Sub cmdSelect_Click()
          If lstBBQ.ListIndex = -1 Then
               lblSelected.Caption = "No item selected!"
          Else
               lblSelected.Caption = "Something is selected!"
          End If
     End Sub

     Private Sub Form_Load()
          lstBBQ.AddItem "Roast Suckling Pig"
          lstBBQ.AddItem "Red Peppers"
          lstBBQ.AddItem "Lobsters"
          lstBBQ.AddItem "Filet Mignon"
          lstBBQ.AddItem "Tofu"
     End Sub

Log of Run

Initial Screen

Click on Combo Box & Select 'Red Peppers'

'Red Peppers' is displayed in the Combo Box

Click Mouse on 'Any Selected' button (i.e. move away from Combo Box)