سلام
خوب بخاطر اینکه سرعت پردازش پیامها بالاست ما این روند رو به راحتی نمیبینیم برای حل مشکل میتونیم با تابع Sleep یه وقفه ایجاد کنیم
برای تغییر ضلع پایین (bottom) مستطیل در تابع Rectangle باید پارامتر آخر تغییر پیدا کنه،
شاد باشیدکد:while(true)
{
if ( PeekMessage( &msg, NULL, 0, 0, PM_REMOVE) )
{
if ( msg.message == WM_QUIT )
break;
TranslateMessage( &msg );
DispatchMessage( &msg );
} // end if
i++;
hdc = GetDC( hWnd );
SelectObject( hdc, green_pen );
SelectObject( hdc, red_brush );
Rectangle( hdc, 30, 40, 100, i );
ReleaseDC( hWnd, hdc );
Sleep(100);
}