Membuat Form Selalu Berada Di Atas Aplikasi Lain

Form yang kita buat bisa saja dibuat agar selalu aktif atau berada diposisi paling depan dari Form bahkan aplikasi lainnya yang sedang aktif. Posisi ini dinamakan On Top. Kembali lagi, untuk hal ini lagi-lagi kita bisa memanfaatkan fasilitas API. Yang perlu dipersiapkan adalah satu buah module dengan syntax API dibawah ini :

Option Explicit
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Public 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

Kemudian buat satu buah form dan ketikkan syntax di bawah ini :

Private Sub Form_Load()
     Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Sub 

Kemudian jalankan form yang telah kita buat, maka form akan selalu berada di atas aplikasi lain.