Public Sub Button2_Click(sender As Object,e As System.EventArgs)
length = 4.5
width = 3.5
End Sub
Public Function GetArea() As Double
GetArea = length * width
End Function
Dim SmListBox1 As SmListBox=Me.SmForm.ControlDictionary()("SmListBox1")
SmListBox1.Items.Add(length)
SmListBox1.Items.Add(width)
SmListBox1.Items.Add(GetArea)