forum.boolean.name - If .........Then

так...

создаешь тип...
так же 4 коориданты кнопки...
если кликнули внутри кнопки, то , допустим, ставим переменной тип 1.
если другая кнопка , то 2

внонце цикла проверяем переменную. Если равна 0 => не нажали на кнопку. Если 1, то выполняем одно действие.. если два,то другое

Создаем тип кнопки

Код:

Type TypeButton

Field X,Y,W,H, image, Image2,f

End Type

Код:

CreateButton (LoadImage ("Data\1.bmp"),LoadImage ("Data\1a.bmp"),2,2,26,26,1)

Функция создания кнопки

Код:

Function CreateButton (image, image2,x,y,w,h,f)

Button.TypeButton=New TypeButton

Button\image = Image

Button\image2 = Image2

Button\x = X

Button\y = Y

Button\w = W

Button\h = H

Button\f = F

End Function

проверка на нажатие

Код:

Function UpdateButton (button.Typebutton)

If F = button\f Then  DrawImage button\image2,button\x, button\y Else DrawImage button\image,button\x, button\y

If MouseDown (1) And MouseX()>button\x And MouseX() <button\x+button\w And MouseY()>button\y And MouseY() <button\y+button\H Then f = button\f 

End Function

и далее у меня уже идет проверка переменной F... как я уже говорил, если равна 0 => не нажали на кнопку. Если 1, то выполняем одно действие.. если два,то другое