02vel06

Microsoft Visual Basic Primer Edition [design]

▼ a

File Edit View Bun Debug Options Window

Help

El

Ą

& y

►

-fi! ■ |§fe, °o

*

!-* .J 1815,690 ±L.i 1005x270

in a text-based environment. Although you shouldn't expect

_
k	IMI
A	H
□	o
	®
sa	n
03	1
&	S s
O	0
	c ^ c
B	1

: 2.

cor

use

li

SWEDEN.FRM

± Proc: Click

Object: Labell

Sub Label1_Click ()

' Sound the alarm and loop Dim Inner As Integer, Outer As Integer Dim Total As Single Beep

For Inner = 1 To 10 For Outer = 1 To 2

Total = Total * (Inner + Outer) / .5 Next Outer Next Inner End Sub

Page 9 Sec 1

9/10 At 1"

Ln 1 Col 1

11:1

Enabled

FontBold	True
Fontl talie	True
FontName	MS Sans Serif
FontSize	12