Sub CSDN_Strings_Test
  Dim Str
  Dim I
  Dim S
  Set Str = theApp.CreateStrings
  Str.Duplicates = False
  Str.Sorted = True
  Str.CaseSensitive = True
  I = Str.Add( "5--")
  I =  Str.Add( "4--")
  I =  Str.Add( "1--")
  I =  Str.Add( "2--")
  I =  Str.Add( "3--")
  I =  Str.AddTagValue( "5", "50" )
  I =  Str.AddTagValue( "4", "40" )
  I =  Str.AddTagValue( "1", "10" )
  I =  Str.AddTagValue( "2", "20" )
  I =  Str.AddTagValue( "3", "30" )
  I =  Str.AddTagValue( "MyParam=Мое значение", "30" )
  I =  Str.ShowModal( "Моя коллекция стрингов", 0, 0 )
  
  For I=0 To Str.Count-1
     S =  Str.TagValues(I)
     If IsEmpty(S) Or IsNull(S) Then S = "Null"
     Call theApp.ShowMessageBox( Str.Strings(I), S )
  Next 
  
  Call theApp.ShowMessageBox( "Демонстрация Values",  "MyParam имееет Values->" + Str.Values("MyParam") )
  Set Str = Nothing
End Sub