Buat sub rutin dengan isi 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 MaxMessageTimeCount, MessageTimeCount As Integer
Public Dd, Mm, Jj As Integer
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 MakeWindowAlwaysTop(hwnd As Long)
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub
Public Sub MakeWindowNoTop(hwnd As Long)
SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub
==================================================
Buat di command1_Click
===================================================
MakeWindowAlwaysTop Me.hwnd 'For OnTop
MakeWindowNoTop Me.hwnd 'For NotOnTop
===================================================
by.RAT-BoyZ
-----Original Message-----
From: indra gunawan <[EMAIL PROTECTED]>
To: [email protected]
Date: Mon, 17 Jul 2006 01:05:29 -0700 (PDT)
Subject: [Programmer-VB] Always On Top...
> Ada yang tau ga..script untuk VB6 untuk Always On top
> kayak di Windows
> Xp....coz gw pake show modal selalu bermasalah kalo
> pake alt + tab.....
> Please bantuin dong...
------------------------ Yahoo! Groups Sponsor --------------------~-->
Great things are happening at Yahoo! Groups. See the new email design.
http://us.click.yahoo.com/TISQkA/hOaOAA/yQLSAA/k7folB/TM
--------------------------------------------------------------------~->
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
