Public Statement

рдЖрдпрд╛рдорд┐рдХрд╣рд░реВ рдЪрд▓ рд╡рд╛ рдПрд░реЗ рдореЛрдбреНрдпреБрд▓ рд╕реНрддрд░рдорд╛(рддрд┐рдиреАрд╣рд░реВ рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛ рд╡рд╛ рдкреНрд░рдХрд╛рд░реНрдпрдорд╛ рд╣реБрдБрджреИрдирдиреН)рд╣реБрдиреНрдЫрдиреН рддреНрдпрд╕реИрд▓реЗ рдЪрд▓ рд░ рдПрд░реЗ рд╕рдмреИ рд▓рд╛рдЗрдмреНрд░реЗрд░реАрд╣рд░реВ рд░ рдореЛрдбреНрдпреБрд▓рд╣рд░реВрдорд╛ рд╡реИрдз рд╣реБрдиреНрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:

рд╕рд╛рд░реНрд╡рдЬрдирд┐рдХ VarName[(рд╕реБрд░реБ рджреЗрдЦрд┐ рдЕрдиреНрддреНрдп)] [As VarType][, VarNameреи[(рд╕реБрд░реБ рджреЗрдЦрд┐ рдЕрдиреНрддреНрдп)] [As VarType][,...]]

рдЙрджрд╛рд╣рд░рдг:

Public iPublicVar As Integer

Sub ExamplePublic

    iPublicVar = iPublicVar + 1

    MsgBox iPublicVar

End Sub