JednorekiBandytaLiczenieLosowańProg

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

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