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 txtHost_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 And Shift = 0 And lstHost.ListIndex < (lstHost.ListCount - 1) Then
lstHost.ListIndex = lstHost.ListIndex + 1
txtHost.Text = lstHost.Text
End If
If KeyCode = 38 And Shift = 0 And lstHost.ListIndex > 0 Then
lstHost.ListIndex = lstHost.ListIndex - 1
txtHost.Text = lstHost.Text
txtHost.SelStart = Len(txtHost.Text)
End If
End Sub