Hi,
try this for Linux/Wine.
/* Linux Test by Peter Feb o3/2o11 */
Include "Func.inc"
Dim hdc as long
Dim x, y, r, alpha as single
SetWindow "o-o",800,600,ws_dlgframe
hdc = GetDC(sys_hwnd)
r = 2.5
While EscKey() =0
For alpha=0 To 360
x = r*cos(alpha)*100
y = r*sin(alpha)*100
DrawBox hdc,x+400,y+270,2,2,RGB(Rand(64,255),Rand(64,255),Rand(64,255))
DrawBox hdc,x+400,y+270,4,4,&h0000FF
DrawBox hdc,x+400,y+270,6,6,RGB(Rand(64,255),Rand(64,255),Rand(64,255))
Next
DoEvents
r = r - 0.1
iF trunc(r) =-1.0 Then r= 2.5
Wend