Để form của bạn ở chế độ “Luôn nổi” home Xuất xứ : Lê Nguyên Dũng (dungcoi) sửa lại từ www.allapi.net Binh khí sử dụng : 1 Timer có giá trị Interval = 50 hoặc gì gì đó nhưng đừng lớn quá chương trình kém “Nhạy” đừng nhỏ quá chương trình “Giật giật” Nguyên tắc : Nếu như một số Code, người ta chỉ thuần cho Form của bạn “On top” khi Load thì Code này chẳng qua cho nó “On top” dài dài bằng cách cho mấy câu lệnh để Fom “On top” vô biến cố của Timer. Ô la la, Very easy. Đoạn mã : Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 Const SWP_NOSIZE = &H1 Const SWP_NOMOVE = &H2 Const SWP_NOACTIVATE = &H10 Const SWP_SHOWWINDOW = &H40 Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) Private Sub Timer1_Timer() SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE End Sub . Để form của bạn ở chế độ “Luôn nổi” home Xuất xứ : Lê Nguyên Dũng (dungcoi) sửa lại từ www.allapi.net. lớn quá chương trình kém “Nhạy” đừng nhỏ quá chương trình “Giật giật” Nguyên tắc : Nếu như một số Code, người ta chỉ thuần cho Form của bạn “On top” khi