Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub StoreInfo()
Dim varItem As Variant
Dim intAryCount As Integer
Dim lstBox1 As ListBox
Dim aryItems()
Set lstBox1 = Me.List1
intAryCount = 0
For Each varItem In lstBox1.ItemsSelected
ReDim Preserve aryItems(intAryCount)
aryItems(intAryCount) = lstBox1.ItemData(varItem)
intAryCount = intAryCount + 1
Next
End Sub