ArrayVariant

Private Sub Command1_Click()
'

' crea velocemente un array usando i variant

'

Dim aryList As Variant
'

aryList = Array("No Access", "Read-Only", "Update", "Delete")
'

MsgBox aryList(2)
'

End Sub