Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Dim i As Long
Private Sub Command1_Click()
If Text1 <> "" Then
i = 0
End If
Text2 = i
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'Enter was pressed
i = i + 1
End If
End Sub