... giá tri: 0-Solid, 1-Transparent, 2- Horizontal Line, 3-Vertical Line, 4- Upward Diagonal, 5- Downward Diagonal, 6-Cross, 7-Diagonal Cross Hình 9.1: Các mẫu nét vẽ Giáo trình Visual Basic 6.0 ... + 200, ScaleHeight / 2 - 200), 150 0, vbBlack, -( PI * 2), - (PI / 2) FillColor = vbCyan Giáo trình Visual Basic 6.0 97 ScaleWidth = XMAX - XMIN ScaleHeight = -( YMAX - YMIN) ' Vẽ lại ... 255 , Rnd * 255 , Rnd * 255 ) DrawWidth = Rnd * 3 + 1 DrawMode = vbXorPen ' Vẽ hình chữ nhật Line (X1, Y1 )-( X2, Y2), , B If Button = 2 Then ‘ Nếu là phím phải thì tô hình Giáo trình...