y  poeyp  VB 
poeyp  y peca coo oee o,
 oopx caaec o popa, aa poeypa
oe ay-o aay  ee ac. poeyp opao co oce oa ocoo
axoc  oa co. Kpoe poeyp opao co  popay oo
 poeyp  y e cae c co.
O o oee ec  oy 
cooa eoopao. Haoe x o. poeyp
oeo aae ac a oee  oe
popa. cooae poeyp oo pe  ooe ea x oo. y oac o
poeyp e, o opaa aoe-o aee. o poeypo  ye oaec oceoaeoc oepa, oopy
yo oopao o  pax ecax
poe. p o peye o oa acaec
 oe oo o pa, oce eo  ey oo opaac
 o ac popa. y - o opopaa, oopy a, o
o ae-o pace  poep. Koa oa
aepae paoy, o opaae ypaee ae
popae  epeae e peya pacea. poeypa - o oe opopaa. Ee oe a,
o o ae-o ec, o o ee e peyec
opaa ocoo popae ae-o ae. Cacc oe poeyp  y: Ko: [Public/Private][Static] Sub < poeyp>
(<apaep>)
<Oepaop>
End Sub Function < y> [As ]
<Oepaop>
End Function poeyp, oee c e coo Public, oo
a  o oye poe (aa opa - o
oe oy). poeyp oee a Private, oo a oo 
eye oye. Coo Static oaae, o ce epeee, oee 
poeype, yy caec, .e. x ae coxpac
ey oa. apaep oecea c poeyp c poee. o
ae, epeaaee  poeypy p oe. poeyp opao co. Bac  o, cyae ec
pooo aoe-o coe. p o cyece
ec a  eea, a   co, oop c 
pooe. ooaece poeyp. py oepaopo, coaaee
papaoo  oe opeeex aa  e
ace o eyeo coco poe 
pooex  o  o oe co. Bcpoee y. Opeeee aop oa,
eec  e Visual Basic   peaaee 
ce ex  x ae a ocoa cxox
ax. Bcpoe c,  acoc, a
aeaece, a  cpooe y (Abs, Cos, Sin, Mid, Len
 ..) ooaece y. py oepaopo, aaoe
ooaec poeypa. Oao ey  ec p o. Ocoe o y o poeyp coco 
ceye. 1. y ee  (aaoo epeeo)  oe
opaa  popay aee, oopoe pcaaec
y p oo oepaopa: < y> = aee 2. Bo y, a pao, ocyecec ocpeco
yaa  pao ac aoo-o oepaopa ee e 
apaepo. C pyo copo, poeypa aec p
oo oeoo oepaopa: Call < poeyp> (apaep)

< poeyp> (apaep) Ec p oe poeyp coyec eoe coo Call,
o cco apaepo oe  yaa  coax. Ec e
poeypa aec e cooa Call, o ee apaep
epecc e coo. Heoxoo oe, o aea poeypa oe e
e apaepo. B o cyae (ec cooaoc
cyeoe coo Call) oce e poeyp ceye ca
yce co. ooaece poeyp oo coyc p
eoxooc oe oo  oe oceoaeoc
oepa. Hapep,  popae peyec eoopao
o  e ae acca arrA, cocoeo  
eeo. B o cyae aoee acca ye ceo
oop  e poeyp. Koaa Add Procedure e Tools ooe oa
poeypy  y. yc poeypa Cir epae c c oopaa x, y,
oope epeac  poeypy a apaep. Coaa
poeypy Cir oao Add Procedure, yo yaa 
poeyp  pa oac oc Public  Private. aep ao, oy oee poeyp: Ko: Private Sub Cir()

End Sub Teep yo ca apaep  co  aca ec
poeyp. B cce apaepo peoeyec yaa 
epeex. Ko: Private Sub Cir(x As Integer, y As Integer)
Circle (x,y),500,,,2
End Sub