VB按钮和文字框的互动 求解,该怎么处理

VB按钮和文字框的互动 求解
本帖最后由 changeking 于 2012-09-26 09:19:24 编辑 Text1文字框控件里面写了一些字,如"Hello World",我想用程序做一个按钮,使得按钮被点下去的时候,"Hello World"被清除, 同时按钮会显示成复原, 当按下这个复原按钮时, "Hello World"又会出现在文字框控件里, 同时按钮被显示成清除.
小弟尝试了下面方法,都不成功, 有没有大虾能帮帮忙?

下面的代码运行成功, 但是清除后不能重新复原
Private Sub Command6_Click()
    Dim StoreString As String  '这个变量怎么不能传递呢?
    If Command6.Caption = "清除" Then
    StoreString = Text1.Text
    Text1.Text = "" '清除
    Command6.Caption = "复原"
    ElseIf Command6.Caption = "复原" Then
    Text1.Text = StoreString
    Command6.Caption = "清除"
    End If
End Sub

下面的代码运行后显示"变量未定义"(StoreString)
Dim StoreString As String
Private Sub Command6_Click()
If Command6.Caption = "清除" Then
    StoreString = Text1.Text
    Text1.Text = "" '清除
    Command6.Caption = "复原"
ElseIf Command6.Caption = "复原" Then
    Text1.Text = StoreString
    Command6.Caption = "清除"
End If
End Sub
[解决办法]
我测试了一下 下面的代码运行后显示"变量未定义"(StoreString) 在同一窗体下不会有这个错误,如果你在其他窗口定义请用Public StoreString As String