报错 对象变量或 With 块变量没有设置（错误 91）

[程序小海]

Private Sub CommandButton1_Click()
    Dim class1 As ResultClass
    Dim i As Integer
        i = class1.getResult(1, 2)
     txtWrite.Object = i
End Sub

ResultClass类

Function getResult(number1 As Integer, number2 As Integer) As Integer
    Dim result As Integer
    result = number1 + number2
    getResult = resulet
End Function

大家看看的 这个错哪儿了？

[ttsffgg]

Dim class1 As New ResultClass

[程序小海]

[Quote=引用 1 楼 overown 的回复:]

Dim class1 As New ResultClass
[/Quote]

说实话 你不说我还真找不到~ 不知道他的语法这样……

谢谢了！