Static Statement

རྟག་བརྟན་ཝར་མིང་[(start To end)] [As VarType], VarName2[(start To end)] [As VarType], ...

Sub ExampleStatic
Dim iCount As Integer, iResult As Integer
    For iCount = 0 To 2
        iResult = InitVar()
    Next iCount
    MsgBox iResult,0,"The answer is"
End Sub
 
རྟག་བརྟན་འགྱུར་ཅན་གྱི་འགོ་འབྱེད་དོན་ལུ་ལས་འགན་ཨར་ཨི་ཨེམ།
Function InitVar() As Integer
    Static iInit As Integer
    Const iMinimum as Integer = 40 REM minimum return value of this function
    if iInit = 0 then REM check if initialized
        iInit = iMinimum
    Else
        iInit = iInit + 1
    End If
    InitVar = iInit
End Function