Declare Sub FindZero(x1 As integer,y1 As Integer)
Declare Sub NewGame()
Declare Sub LinesGui()
Declare Sub RandomBall()
Declare Function DeleteBALLLine() As BOOL

Enum LinesEnum
MENU1=1
MENU2
MENU3
End Enum

Type LinesGui
	hwnd As HWND
	ImGadget(1 To 81) As HWND
	Menu As HMENU
	Menuname As HMENU
	event As Integer
	NumberPoints As Integer
	NumberBall As Integer
	img(1 To 7) As HBITMAP
	XY_1(8,8) As Integer
	XY_2(8,8) As Integer
	TempX As Integer
	TempY As Integer
	TempZ As Integer
	BALLClick As Bool
End Type
