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.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
For i As Integer = 0 To 25
ListBox1.Items.Add("Item " & i)
ListBox2.Items.Add("Item " & i)
Next
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles ListBox1.SelectedIndexChanged
ListBox2.SelectedItem = ListBox1.SelectedItem
End Sub
Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles ListBox2.SelectedIndexChanged
ListBox1.SelectedItem = ListBox2.SelectedItem
End Sub
End Class