CLASS WRange FROM WControl PROPERTY cClassId INIT "rng" PROPERTY cAlign INIT xc_NoAlign // Alineación Property nMinValue Init 0 // Valor minimo Property nMaxValue Init 100 // Valor Máximo PROPERTY cClrTitle INIT "black" METHOD Create() ENDCLASS