Option Explicit
Dim i As Integer
Dim sum As Integer
Private Sub Command1_Click()
Cls
Font.Size = 70
Static i As Integer
i = i + 1
Print i
End Sub
Function f(x As Integer) As Long
Dim i As Integer
End Function
Dim i As Integer
Dim sum As Integer
Private Sub Command1_Click()
Cls
Font.Size = 70
Static i As Integer
i = i + 1
Print i
End Sub
Function f(x As Integer) As Long
Dim i As Integer
End Function