Option Explicit

Private Sub CmdSelect_Click()
    frmListInput.executeDialog Form1, "Students", "Select from List!"
End Sub

Private Sub Form_Load()
	' set location for my list!
    frmListInput.setListPath ("\my documents\")
End Sub

' Handler callback from frmListInput form.
'  Item - name of the item list that was used
'  itemIndex - the numeric index of the selected item
'  itemValue - an ARRAY of values 0 is the key, 1..N are fields
Public Sub ListInput_Handle(ByVal item As String, ByVal itemIndex As String, ByRef itemValue As Variant)
    Dim cnt As Integer
    
    lstDetails.Clear
    
    ' item identifies which list was used.
    Select Case item
    Case "Students"
        txtValue.Text = itemValue(0)
        For cnt = 1 To UBound(itemValue)
            lstDetails.AddItem itemValue(cnt)
        Next
    End Select

End Sub