external(INT, "GetDC", "GetDC", "User32.dll");
external(INT, "CreatePen", "CreatePen", "Gdi32.dll");
external(INT, "SelectObject", "SelectObject", "Gdi32.dll");
external(INT, "CreateSolidBrush", "CreateSolidBrush", "Gdi32.dll");
external(INT, "Rectangle", "Rectangle", "Gdi32.dll");
external(INT, "Ellipse", "Ellipse", "Gdi32.dll");

createdialog(0);
showdialog(0, "Dialog", 835, 390, 300, 300, 1, 1);

int diametr=10; // размер точек
int x=200, y=150; // начальные координаты зелёной точки

int brush1=CreateSolidBrush(rgb(205, 245, 250)); // заливка диалога
int pen1=CreatePen("PS_SOLID", 1, rgb(205, 245, 250)); // цвет контура

int brush2=CreateSolidBrush(255); // красная точка
int pen2=CreatePen("PS_SOLID", 1, 255); // толщина и цвет контура красной точки

int brush3=CreateSolidBrush(rgb(20, 130, 20)); // зелёная точка
int pen3=CreatePen("PS_SOLID", 1, rgb(20, 130, 20)); // толщина и цвет контура зелёной точки

while(window ("Dialog")==0)sleep(10);
win w=window ("Dialog");

int hdc=GetDC(formatwi(w));

loop()
{
SelectObject(hdc, pen1);
SelectObject(hdc, brush1);
Rectangle(hdc, 0, 0, w.widthclient, w.heightclient); // рисуем прямоугольник на диалоге

SelectObject(hdc, pen3);
SelectObject(hdc, brush3);
Ellipse(hdc, x, y, x+diametr, y+diametr); // рисуем зелёную точку

SelectObject(hdc, pen2);
SelectObject(hdc, brush2);
Ellipse(hdc, w.widthclient/2, w.heightclient/2, w.widthclient/2+diametr, w.heightclient/2+diametr); // рисуем красную точку в центре диалога

x=x+rand(-10, 10); y=y+rand(-10, 10); // считаем новые координаты зелёной точки
sleep(500);
}