... Private mWidth As Integer Private mHeight As Integer Lập trình trực quan 127 BÀI 16. TỰ TẠO OBJECT Từ trước đến giờ, ta lập trình VB6 bằng cách thiết kế các Forms rồi viết codes để xử ... Canvas.Line (mX, mY )-( mX + mWidth, mY + mHeight), , B Else Canvas.Line (mX, mY )-( mX + mWidth, mY + mHeight), fColor, B End If RaiseEvent Draw(mX, mY) End Sub Lập trình trực quan 128 Trong ... loại Standard EXE Visual Basic. Sau đó dùng Menu Command chọn Add Class Module: Khi Add Class Module dialog hiện ra chọn Class Module và click Open. Lập trình trực quan 129 Chúng ta sẽ...