codice:
Private Sub Command1_Click()
    Dim v() As String
    Dim i As Integer
        
    ReDim v(10)

    v(0) = "uno"
    v(2) = "tre"
    v(4) = "cinque"
    v(6) = "sette"
    v(8) = "nove"
    
    For i = 0 To UBound(v) - 1
        If v(i) <> "" Then
            List1.AddItem v(i)
        Else
            List1.AddItem "Campo vuoto"
        End If
    Next i
End Sub