VB Code Always on top

'Code :

Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsert As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

'___________________________________________________________________________

Private Sub Form_Load()
SetWindowPos hwnd, -1, 0, 0, 0, 0, 3
End Sub

'___________________________________________________________________________

Download Code + EXE :

http://www.mediafire.com/download.php?tmdyonymie2

หรือ

http://upload.tarad.com/images2/03/f...ffe744e46f.jpg

[Copy รูปไปแล้วใช้ WinRAR เปิดแล้วจะเห็นไฟล์]

'___________________________________________________________________________

Screenshot :

http://upload.tarad.com/images2/e7/f...c844e9715c.jpg

'___________________________________________________________________________

เป็น Code สำหรับ Visual Basic 6.0 จะอยู่บนสุดเสมอ code ง่ายๆ นำไปใช้ได้เยอะครับ

มีปัญหาอะไรสอบถามได้ครับ