Накатал ровно за 7 минут )
Много с чем еще не дружит,но с Cls уже подружил:
Strict
Graphics 800,600,0,60
SetBlend (alphablend)
SetClsColor 68,68,68
While Not KeyHit(key_escape)
Cls
DrawRoundedRect(100,100,300,200,50)
Flip
Wend
End
Function DrawRoundedRect(x,y,w,h,round)
'get curent cls color for rounded corners
Local GetClsR
Local GetClsG
Local GetClsB
GetClsColor (GetClsR,GetClsG,GetClsB)
'get curent drawing color
Local GetR
Local GetG
Local GetB
GetColor (GetR,GetG,GetB)
'Draw main rect body
DrawRect x,y,w,h
SetColor GetClsR,GetClsG,GetClsB
'draw corners
DrawOval x-round/2,y-round/2,round,round
DrawOval x-round/2,y+h-round/2,round,round
DrawOval x+w-round/2,y-round/2,round,round
DrawOval x+w-round/2,y+h-round/2,round,round
SetColor GetR,GetG,GetB
DrawOval x,y,round,round
DrawOval x,y+h-round,round,round
DrawOval x+w-round,y,round,round
DrawOval x+w-round,y+h-round,round,round
End Function