Private Sub Form_Load()
  Dim i As Integer
  Combo1.Clear 
    For i = 0 To 7
        If Text(i).Text <> "" Then
          Combo1.AddItem Text(i).Text 
        End If
    Next i
    If Combo1.List(0) <> "" Then
       Combo1.ListIndex = 0
    End If
End Sub
 
Private Sub Combo1_Click()
   Label1.Caption = ""
   Label1.Caption = Combo1.Text & " " & Combo1.ListIndex
End Sub

cu

ari