VB的复原按钮的代码为什么不能复原

Dim StoreString As String

Private Sub Command1_Click()

If Command1.Caption = "清除" Then

StoreString = Text1.Text
Text1.Text = "" '清除
Command1.Caption = "复原"

Else

Text1.Text = StoreString
Command1.Caption = "清除"

End If

End Sub

Private Sub Form_Load()
Command1.Caption = "清除"
End Sub

=====================================
StoreString要定义成全局变量，才能保存，让Sub Command1事件结束后，StoreString就被销毁了，所以不行

可以先把text1.text 写入到一个txt文件中，然后还原的时候再读出来

不太明白你的问题。
是不是你的StoreString变量没有正确初始化啊？