Protected Sub UltraGauge1_AsyncRefresh(ByVal sender As Object, _ ByVal e As Infragistics.WebUI.UltraWebGauge.RefreshEventArgs) _ Handles UltraGauge1.AsyncRefresh Dim gauge As LinearGauge = Me.UltraGauge1.Gauges(0) Dim marker As LinearGaugeMarker = gauge.Scales(0).Markers(0) Dim value As Integer = Convert.ToInt32(marker.Value) marker.Value = value + 5 End Sub