我想编一个简单的字符串逆转的小程序：插如入了一个类模块，代码如下：
Option Explicit
Public StrName As String
Private Sub StrReverse()
Dim i As Integer
Dim str As String
For i = 1 To Len(StrName)
str = Mid$(StrName, i, 1) & str
Next
StrName = str
End Sub
在窗体上添加了两个按钮，一个为“逆转”，一个为“退出”，，逆转按钮的代码如下：
Private Sub Command1_Click()
Set myobject = New MyClass1
myobject.StrName = Text1.Text
myobject.StrReverse
Text2.Text = myobject.StrName
End Sub
以上各部都是按书上的步骤做的，运行的时候却出现如下错误：
图片附件:
未标题-1.jpg (2006-7-18 08:46, 30.03 KB) / 该附件被下载次数 408