Private Sub SpeedListChanged() Dim bSpeedListChanged As Boolean bSpeedListChanged = burner.SpeedListChanged End Sub