Dim m As Integer
Dim n As Integer
Dim month(12)
Private Sub Command1_Click()
List1.ListIndex = -1
List2.ListIndex = -1
List3.Clear
End Sub
Private Sub Form_Load()
month(0) = "January"
month(1) = "February"
month(2) = "March"
month(3) = "April"
month(4) = "May"
month(5) = "June"
month(6) = "July"
month(7) = "August"
month(8) = "September"
month(9) = "October"
month(10) = "November"
month(11) = "December"
For k = 0 To 11
List1.AddItem month(k)
List2.AddItem month(k)
Next
End Sub
Private Sub List1_Click()
m = List1.ListIndex
End Sub
Private Sub List2_Click()
n = List2.ListIndex
If Not n = -1 Then
For k = m To n
List3.AddItem month(k)
Next
End If
End Sub