Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 0 To ListBox1.ListCount - 1
        ListBox1.ListIndex = i
        Cells(i + 1, 1) = ListBox1.Text
    Next i
End Sub

Code: Select all

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, _
        e As System.EventArgs) Handles Button1.Click
        Dim a As Object
        For Each a In ListBox1.Items
            If a = "Mar" Then
                MsgBox("Yes, " + a + " equal Mar.")
            Else
                MsgBox("No, " + a + " does not equal Mar.")
            End If
        Next
    End Sub

    Private Sub Form1_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("Jan")
        ListBox1.Items.Add("Feb")
        ListBox1.Items.Add("Mar")
    End Sub
End Class