... = 1 - F: F2 = 1 + F ' calculations. Line (CX * F1, CY )-( CX, CY * F1) ' Draw upper-left. Line -( CX * F2, CY) ' Draw upper-right. Line -( CX, CY * F2) ' Draw lower-right. ... variable. AutoRedraw = -1 ' Turn on AutoRedraw. ForeColor = QBColor(15) ' Set foreground to white. Lập trình trực quan 97 BÀI 13. METHOD Method là các chương trình được xây dựng ... Line (10, 0 )-( 20, 45), RGB(0, 0, 255), BF ' First blue bar. Line (20, 0 )-( 30, 55), RGB(255, 0, 0), BF ' First red bar. Line (40, 0 )-( 50, 40), RGB(0, 0, 255), BF Line (50, 0 )-( 60, 25),...