Holds a collection of the available Queues.

Visual Basic Syntax

[TnbXQueues =] TnbXLPD.Queues

Delphi Syntax

[TnbXQueues :=] TnbXLPD.Queues;

Example

Private Sub InitQueues(MyLPD as TnbXLPD)

 If MyLPD.Queues.Count = 0 Then

  MyLPD.CreateQueue('QUEUE1')

  MyLPD.CreateQueue('QUEUE2')

 End If

End Sub