StartStopJednorękiBandytaPorg

File Edit View Insert Format Debug Run Tools Ądd-Ins Window Help

1*1

o

► ii ■ M

i

o

Ln 2, Col 1

CommandButtonl

Project - Normal

o

Click

0

-

-

-

-

-

-

Normal

C Microsoft Word Objects & Forms

El UserForrnl El UserForm2 ■03 Modules

NewMacros Project (BBB)

& Microsoft Word Objects ThisDocument References

Project (Makra_vl.2b)

& Microsoft Word Objects ThisDocument References

TemplateProject (EEFONTS)

Properties - CommandButtonl

CommandButtonl CommandButton

Private Suto CommandButtonl_Click()

Do

Latoell.Caption = Int(Rnd * 10)

Latoel2.Caption = Int(Rnd * 10)

Latoel3.Caption = Int(Rnd * 10)

If (Latoell.Caption = 7) And (Latoel2.Caption

Image1.Visitole = True

Exit Suto

End If

Loop

End Suto

= 7) And (Latoel3.Caption = 7) Then

Private Suto CommandButton2_Click() Unload He End Suto