Form Selalu Di Depan

Berikut ini adalah kode-kode yang digunakan agar Form aplikasi Anda selalu ditempatkan paling depan diantara Form-Form aplikasi yang lain.

Buat sebuah Module baru dan ketikkan :

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

Public Sub FormOnTop(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

Untuk contoh penggunaannya, buatlah sebuah Form dan ketikkan kode berikut di bagian 'Form_Paint'.

FormOnTop Me, True

Namun jika anda menginginkan proses aktif/ non-aktifkan saat aplikasi berjalan, lakukan hal berikut. Buatlah sebuah Form dan sebuah CheckBox didalamnya.
Lalu di bagian 'Check1_Click' dan di bagian 'Form_Paint' ketikkan :

FormOnTop Me, IIf(Check1.Value = 1, True, False)