Dim myLinearGauge As LinearGauge = Me.ultraGauge1.Gauges(0)' Access Bar marker Dim myMarker As LinearGaugeMarker = myLinearGauge.Scales(0).Markers(0) Dim currentValue As Double = CInt(myMarker.Value) ' Increases needle by 5 myMarker.Value = currentValue + 5