JednorekiBandytaLiczenieLosowańProg

fw] il - Q #4 <

► II

■ k

£ & Ś? W ^ C5) Ln 2, Col 1

Project - Normal

X

CommandButtonl

▼ Click

\mm a

“

Private Sub CommandButtonl Click()

1 - Normal

Do

+ Microsoft Word Objects

X = X + 1

B & Forms

Labell.Caption = Int(Rnd * 10)

El UserForrnl

Label2 .Caption = Int(Rnd * 10)

El UserForrn2

Label3.Caption = Int(Rncl * 10)

Ś Q Modules

If (Labell.Caption = 7) And (Label2.Caption = 7)

And (Label3.Caption = 7) Then

**£ NewMacros

Image1.Visible = True

<§£ Project (BBB)

Exit Sub

- <23 Microsoft Word Objects

End If

ThisDocument

TextBoxl = x

Ś Q] References

Loop

^ Project (Makra_vl.2b)

End Sub

- <23 Microsoft Word Objects

ThisDocument

Private Sub CommandButton2 Click()

Ś Q] References

Unload He

<

k ^ TemplateProject (EEFONTS)

End Sub