[VB 6.0] Membuat Form Selalu di Depan

Bila anda ingin form dari aplikasi anda terletak didepan dengan form-form aplikasi lain atau form lain dari aplikasi yang sama, silahkan simak langkah-langkahnya dibawah ini.

Buatlah sebuah Module lalu ketik:

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 menggunakan, buat sebuah Form dan ketik kode berikut di bagian 'Form_Paint':

FormOnTop Me, True

DOWNLOAD PROJECT