membuat form selalu didepan (always on top) dengan vb 6

setelah sebelumnya saya mempositng artikel disable dan enable task manager dengan vb 6, sekarang saya akan berbagi bagaimana cara membuat form selalu didepan(always on top) dengan vb 6, jika tampil selalu didepan diantara form2 lain kita bisa menggunakan script "vbModal" diakhir nama form yang dipanggil. contoh aplikasi ini masih digunakan untuk fitur tambahan pada aplikasi yang sedang saya buat, tujuannya agar user tidak bisa melihat atau membuka desktop komputer sebelum login. dan ini sangat membantu untuk saya (untuk saat ini .hhihi).
wokeh, seperti biasa langsung aja kita coba.. yuk lae  :)
pertama buat project baru dan copy script dibawah pada jendela kodingnya:

Form1.frm

Private Declare Function 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) As Long

Private Sub Form_Paint()
    Form1 Me, True
End Sub

Public Sub Form1(ByVal Frm As Form, ByVal State As Boolean)
    SetWindowPos Frm.hwnd, IIf(State = True, -1, -2), 0, 0, 0, 0, &H1 Or &H2
End Sub

selamat berkarya, kembangkan contoh yang sederhana ini menjadi sesuatu yang istimewa  .hhehe
silahkan download contoh scriptnya disini.