All pastes #823299 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-12-19 08:25 UTC
rendered paste body
Public sCaption As String

Private Sub Command1_Click()
    Command1.Caption = "Hello World"
End Sub

Private Sub Command2_Click()
    Command1.Caption = sCaption
End Sub

Private Sub Form1_Load()
    sCaption = Command1.Caption
End Sub