Shoutbox

code:

---

Dim strMyString(20) As String

Private Sub Form_Load()
strMyString(1) = "..."
strMyString(2) = "..."
End Sub

Private Sub Command1_Click()
Static lngTimes As Long
lngTimes = lngTimes + 1
Label1.Caption = strMyString(lngTimes)
End Sub

---