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 Command1_Click()
Dim i As Integer
List2.Clear
Do Until i = (List1.ListCount)
Clipboard.Clear
If List1.Selected(i) = True Then
Clipboard.SetText List1.List(i)
List2.AddItem Clipboard.GetText
End If
i = i + 1
Loop
End Sub