Tham khảo tài liệu 'visual basic 6 vovisoft part 18', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Class clsBox có 4 Properties X Y Width và Height. Ta sẽ instantiate một Box từ clsBox. Mỗi Box có tọa độ X Y và kích thước chiều rộng và chiều cao width height của nó. Thật ra ta có thể dùng Public statement để declare các biến X Y Width và Height. Nhưng ở đây ta cố ý declare chúng là Private dưới dạng mX mY mWidth và mHeight. Khi ta muốn thay đổi các trị số của chúng ta sẽ dùng cùng một cách viết code như bình thường thí dụ 80 . Nhưng khi chương trình xử lý assignment statement ấy nó sẽ execute một loại method giống như Sub gọi là Property Let X vValue . Ta thấy ở đây vValue được assigned cho mX . mX vValue cái Private variable của X. Như thế công việc nầy cũng chẳng khác gì sửa đổi một Public variable X. Tuy nhiên ở đây ta có thể viết thêm code trong Property Let X để nó làm gì cũng được. Bạn có nhớ trong khi thiết kế một Label mỗi lần bạn dùng Property Window để edit Font size forcolor hay backcolor thì chẳng những các properties ấy của Label thay đổi mà kết quả của sự thay đổi được có hiệu lực ngay lập tức nghĩa là Label được hiển thị trở lại với trị số mới của property. Đó là vì trong method Property có cả code bảo Label redisplay. Ngược lại khi ta dùng property X của Object myBox không phải ta chỉ đọc trị số thôi mà còn execute cả cái method Property Get X. Nói tóm lại Property cho ta cơ hội để execute một method mỗi khi User đọc hay viết trị số variable ấy. Thí dụ như nếu ta muốn kiểm soát để chỉ chấp nhận trị số tọa độ X mới khi nó không phải là số âm. Ta sẽ sửa Property Let X lại như sau Public Property Let X ByVal vValue As Integer If vValue 0 Then mX vValue End If End Property Property có thể là Read Only hay Write Only. Nếu muốn một Property là Read Only thì ta không cung cấp Property Let. Nếu muốn một Property là Write Only thì ta không cung cấp Property Get. Ngoài ra nếu làm việc với Object thay vì Data type thông thường thì ta phải dùng Property Set thay vì Property Let. Thí dụ ta cho clsBox một Property mới gọi là Font dùng object của .
