Untuk Membuat Tampilan Form paling atas dari program-program yang lain caranya:
Buat sebuah Form dan sebuat module. di dalam form buatlah 2 command button. copykan source code dibawah ini di Form dan di module
‘COPY CODING INI DI FORM:
‘===============================================
Private Sub Command1_Click()
res = SetWindowPos(Form1.hWnd, HWND_TOPMOST, 0, 0, _
0, 0, flags)
End Sub
Private Sub Command2_Click()
res = SetWindowPos(Form1.hWnd, HWND_NOTOPMOST, 0, _
0, 0, 0, flags)
End Sub
“COPY CODING INI DI MODULE:
‘=============================================================================
‘Tombol pertama untuk membuat tampil paling atas . Tombol kedua untuk membuat form kembali normal
Declare Function SetWindowPos Lib “user32″ (ByVal h%, ByVal hb%, ByVal x%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal F%) As Integer
Global Const SWP_NOMOVE = 2
Global Const SWP_NOSIZE = 1
Global Const flags = SWP_NOMOVE Or SWP_NOSIZE
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2
