'QColorButton 
'By Achilles B. Mina 
'Uploaded 7/5/03 

TYPE QCOLORBUTTON EXTENDS QPANEL
  SndFreq AS INTEGER
  SndDur AS SINGLE
  CONSTRUCTOR
    Height = 26
    Width = 26
    BevelInner = 2
    Color = &HEEEEEE
    Cursor = -21
  END CONSTRUCTOR
  EVENT OnMouseDown 
    QCOLORBUTTON.BorderStyle = 1
    QCOLORBUTTON.Caption = " " + QCOLORBUTTON.Caption
    IF QCOLORBUTTON.SndFreq = 0 AND QCOLORBUTTON.SndDur = 0 THEN ' XP compatibles
  '    SOUND(5000,.5)
    ELSE
 '     SOUND(QCOLORBUTTON.SndFreq,QCOLORBUTTON.SndDur)
    END IF
  END EVENT
  EVENT OnMouseUp
    QCOLORBUTTON.BorderStyle = 0
    QCOLORBUTTON.Caption = QCOLORBUTTON.Caption - " "
  END EVENT
END TYPE

CREATE Form AS QFORM
  Center
  CREATE Fake AS QCOLORBUTTON
    Left = 40
    Top = 40
    'SndFreq = 500 
    'SndDur = .5 
    Caption = "A"    
  END CREATE
END CREATE

Form.ShowModal