STMIKBG MATARAM

Untuk membuat aplikasi yang formnya selalu muncul walaupun kita membuka window lain, atau dengan kata lain form ini always on top bisa kita gunakan kode berikut ini
kode ini adalah hasil pengembangan dari programer luar dan bisa anda akses pada http://blackbeltvb.com/ontop.htm

Berikut code yang harus anda ketik pada code window

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

‘ SetWindowPos Flags
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOZORDER = &H4
Const SWP_NOREDRAW = &H8
Const SWP_NOACTIVATE = &H10

‘ The frame changed: send WM_NCCALCSIZE
Const SWP_FRAMECHANGED = &H20

Const SWP_SHOWWINDOW = &H40
Const SWP_HIDEWINDOW = &H80
Const SWP_NOCOPYBITS = &H100

‘ Don’t do owner Z ordering
Const SWP_NOOWNERZORDER = &H200

Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
‘ SetWindowPos() hwndInsertAfter values
Const HWND_TOP = 0
Const HWND_BOTTOM = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Untuk mengaktifkan fungsi always on top nya ketikkan code dibawah ini

Dim i
i = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)

Dengan kode sederhana diatas kita bisa memaksa program kita agar windownya selalu tampil.