Private Sub Form_Click()Static i As Longi = i + 1Text1 = iEnd SubPrivate Sub Form_Load()Text1 = "腊袭做轮衡"禅笑End Sub