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 lboMonth_Change()
'assuming a label control names lblSelected
Me.lblSelected.Caption = Me.lblSelected.Caption & Me.lboMonth.ListIndex & "~"
Debug.Print Me.lboMonth.ListIndex
End Sub