Version=6.90
NumberOfForms=1
Form1=Form1
FormWidth=240
FormHeight=268
IconFile=
NumberOfDesktopIncludes=0
NumberOfDeviceIncludes=0
NumberOfObjects=0
NumberOfModules=0
Sub designer
addform(Form1,"Form1","",220,220,220)@
addlabel(form1,Label1,20,155,75,25,"0",220,220,220,0,0,0,True,True,9,False)@
addbutton(form1,Button1,20,100,75,23,"Button1",212,208,200,0,0,0,True,True,9)@
addradiobtn(form1,RadioBtn4,110,35,90,25,"RadioBtn4",220,220,220,0,0,0,True,True,False,9)@
addradiobtn(form1,RadioBtn3,15,35,100,25,"RadioBtn3",220,220,220,0,0,0,True,True,False,9)@
addradiobtn(form1,RadioBtn2,110,10,95,25,"RadioBtn2",220,220,220,0,0,0,True,True,False,9)@
addradiobtn(form1,RadioBtn1,15,10,95,25,"RadioBtn1",220,220,220,0,0,0,True,True,False,9)@
End Sub
@EndOfDesignText@
Sub Globals
	'Declare the global variables here.
	Dim cnt

End Sub

Sub App_Start
	Form1.Show
	cnt = 0
	For i = 1 To 4
		AddEvent("RadioBtn" & i,Click,"rbDevClick")
	Next i	
End Sub

Sub Button1_Click
	Button1.Enabled = False
End Sub

Sub rbDevClick
'	Ind = StrAt(Sender,StrLength(Sender)-1)
	cnt = cnt + 1
	Label1.Text = cnt
End Sub