Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Imports Infragistics.Win.CalcEngine
Imports Infragistics.Win.UltraWinCalcManager
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
Dim formula As String = "average( 10, 15, 20 )"
Dim result As UltraCalcValue = Me.UltraCalcManager1.Calculate(formula)
If result.IsError Then
MessageBox.Show(Me, result.ToString())
Else
Dim doubleVal As Double = result.ToDouble()
MessageBox.Show(Me, doubleVal.ToString())
End If
End Sub