Imports Infragistics.Win.UltraWinCalcManager
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.UltraCalcManager1.CalcFrequency = CalcFrequency.Asynchronous
Me.UltraCalcManager1.AsynchronousCalcDuration = 100
Me.UltraCalcManager1.AsynchronousCalcInterval = 20
Dim errorIcon As Icon = New Icon("C:\Error Icon.ico")
Me.UltraCalcManager1.ErrorIcon = errorIcon
Me.UltraCalcManager1.ErrorIconAlignment = CalcErrorIconAlignment.MiddleLeft
End Sub