Staticke premenne

Sub testPremennej()
    Dim tmp As Integer

    MsgBox "tmp = " & tmp
    tmp = tmp + 1
    Call testPremennej2

End Sub

Sub testPremennej2()
    MsgBox "tmp = " & tmp
End Sub


Sub testStatickejPremennej()
    Static tmp As Integer

    MsgBox "tmp = " & tmp
    tmp = tmp + 1
    Call testStatickejPremennej2(tmp)

End Sub

Sub testStatickejPremennej2(ByVal tmp As Integer)
    MsgBox "tmp = " & tmp
End Sub