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 List1_Click()
If List1.ListIndex = List1.ListCount - 1 Then
MsgBox "This is the last item"
Else
MsgBox "This is not the last item"
End If
End Sub