... := Round( ( nAlto/1080 ) , 4 )Return IF( Empty( nTp ), nPorcAnc, nPorcAlt ) De esta manera en el metodo New de TMetro, aplicala a METHOD New( cTitle, nBtnWidth, nBtnHeight, cFileName ) CLASS TMetro DEFAULT cTitle := "MyApp", nBtnWidth := 132, ...