Global Statement
ΠΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΈΠ»ΠΈ ΠΌΠ°ΡΡΠΈΠ² Π½Π° Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΠΎΠΌ ΡΡΠΎΠ²Π½Π΅ (ΡΠΎ Π΅ΡΡΡ Π½Π΅ Π²Π½ΡΡΡΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈΠ»ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ), ΡΠ°ΠΊ ΡΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΈΠ»ΠΈ ΠΌΠ°ΡΡΠΈΠ² Π²ΠΈΠ΄Π½Ρ Π²ΠΎ Π²ΡΠ΅Ρ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ°Ρ ΠΈ ΠΌΠΎΠ΄ΡΠ»ΡΡ Π² ΡΠ΅ΠΊΡΡΠ΅ΠΌ ΡΠ΅Π°Π½ΡΠ΅.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ
Global ΠΠΌΡ_ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ[(ΠΠ°ΡΠ°Π»ΠΎ To ΠΠΎΠ½Π΅Ρ)] [As Π’ΠΈΠΏ_ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ][, ΠΠΌΡ_ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ2[(ΠΠ°ΡΠ°Π»ΠΎ To ΠΠΎΠ½Π΅Ρ)] [As Π’ΠΈΠΏ_ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ][,...]]
ΠΡΠΈΠΌΠ΅Ρ:
Global iGlobalVar As Integer
Sub ExampleGlobal
iGlobalVar = iGlobalVar + 1
MsgBox iGlobalVar
End Sub