' Define distributor for application
Dim distributor As Distributor = New Distributor( _
myApplication, "Distributor")
distributor.SystemName = notificationServicesHost
distributor.QuantumDuration = New TimeSpan(0, 0, 15)
distributor.ThreadPoolSize = 2
myApplication.Distributors.Add(distributor)