    Shared Sub New()
      ' Gdyby to było używane w prawdziwym programie, 
      ' ten kod czytałby prawdopodobnie dane użytkownika 
      ' z pliku bazy danych. My dokonamy tu małego oszustwa.

      ReDim mUserList(100)

      With mUserList(0)
        .User = "Debbie Plesluska"
        .Pass = "Diamonds"
        .SecurityLevel = 8
      End With
      With mUserList(1)
        .User = "Jay Crannell"
        .Pass = "Whiff"
        .SecurityLevel = 8
      End With
      With mUserList(2)
        .User = "Jim McAllister"
        .Pass = "Slice"
        .SecurityLevel = 6
      End With
      With mUserList(3)
        .User = "Jack"
        .Pass = "Joyce1"
        .SecurityLevel = 10
      End With
      mUserCount = 4

    End Sub
