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.
Dim ctl As Control
Dim varitm As Variant
Dim strX As String
Set ctl = Me.list_FieldsFrom
strX = ""
For Each varitm In ctl.ItemsSelected
If strX = "" Then
strX = ctl.Column(1, varitm)
Else
strX = strX & ", " & ctl.Column(1, varitm)
End If
Next varitm
MsgBox strX