' This method will change the rate, first it checks ' if the passed rate is supported by this player Private Sub SetRate(Play As ltmmPlayCtrl, Rate As Long) If Play.IsRateSupported (Rate) Then Play.Rate = Rate End If End Sub