Public Class ClsTest
Private mArr As New ArrayList
 
Public Sub New()
 
End Sub
 
Public Function arrCount() As Integer
        Return mArr.Count
    End Function
 
    Public Sub arrAdd(ByVal strBez As String)
 
Select Case strBez 
            Case Is = "A"
                mArr.Add()
(strBez )
            Case Is = "B"
                mArr.Add()
(strBez )
            Case Else
                MessageBox.Show("will ich nich")
        End Select
        mArr.Add()
    End Sub
 
    Public Sub ()
        mArr.Clear()
    End Sub
 
End Class