[Q] Hỏi về VB ???

[dang_tinhoc]

Tôi có trên form1 cái Timer và một Label .
Có mã sau :

Dim i as integer

Private sub Form_Load()
Timer1.interval = 1000
Timer1.enable = true
End Sub

Private sub Timer_timer()
i = i + 1
label1.caption = i
End Sub

Khi chạy thì label cứ 1 giây thì hiển thị tăng dần . Nhưng nếu dùng chuột bấm và giữ lên thanh tiêu đề của form thì timer sẽ dừng lại . Bỏ chuột ra thì công việc tiếp tục như bình thường .
Nguyên nhân có thể do tôi bỏ phần Timer1.enable = true vào lúc form_load . Nhưng tôi không còn cách khác .
Xin chỉ cách khắc phục .

[nganha]

Xin xem lại phần trả lời cho câu hỏi Control Timer quá tệ. Chắc là bạn đang cho chạy dưới WIN98. Có lẽ do đối với Win98 thông điệp WM_TIMER có độ ưu tiên thấp hơn so với các thông điệp khác trong vùng NonClient nên Control Timer của bạn không được cập nhật chính xác. Tôi đang sử dụng WinXP thì không có hiện tượng này.