VB 6 , Form nya Selalu di atas APlikasi WIndows Lain

MEMBUAT FORM SELALU DI ATAS DARI APLIKASI LAINNYA

Code Visual Basic (Membuat Form Selalu Di Atas Dari Aplikasi Lainnya)

1. Copy Code Dibawah ini (Dipasang Di Module)  :

Public Declare Function SetWindowPos Lib "user32" (ByVal h As Long, _

                                            ByVal hb As Long, _

                                            ByVal x As Long, _

                                            ByVal y As Long, _

                                            ByVal cx As Long, _

                                            ByVal cy As Long, _

                                            ByVal F As Long) As Long

                                           

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

2. Selanjutnya Copy Code Dibawah ini  :

Private Sub Form_Load()

res = SetWindowPos(Form1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, flags)

End Sub

Silahkan Mencoba !

sumber