'aufbau der elemente eines frage-antwort paares in der datenbank
    Private Structure strDBItem
        Private bFlag As Boolean
        Shared sQuestion As String
        Shared sAnswer As String
        Shared iLengthOfAnswer As Integer
    End Structure
    'die datenbank als collection
    Private colDBItems As Collection    'the database itself
 
Public Function AddNewDBItem(ByVal sQuestion As String, ByVal sAnswer As _
  String) As Boolean
        strDBItem.sQuestion = sQuestion
        strDBItem.sAnswer = sAnswer
        strDBItem.iLengthOfAnswer = sAnswer.Length
 
        colDBItems.Add(strDBItem)
    End Function