OpenFile(1,C:\cifra.txt, OpenMode.InPut)

colision1=colision(lbl1.left,lbl1.top,lbl2.left,lbl2.top,lbl2.height,lbl2.width)
colision2=colision(lbl1.left+lbl1.width,lbl1.top,lbl2.left,lbl2.top,lbl2.height,lbl2.width)
colision3=colision(lbl1.left,lbl1.top+lbl1.height,lbl2.left,lbl2.top,lbl2.height,lbl2.width)
colision4=colision(lbl1.left+lbl1.width,lbl1.top+lbl1.height,lbl2.left,lbl2.top,lbl2.height,lbl2.width)
if colision1 or colision2 or colision3 or colision4 then
'se estan tocando
else
'no se estan tocando
end if

function colision(x1,y1,x2,y2,h2,w2) as boolean
if x1>x2 and x1<x2+w2 and y1>y2 and y1<y2+h2 then colision=true
else
colision=false
end function

Function AddMoneda( Texto as string) as string
Dim moneda as string
AddMoneda = "$" & Texto
end function