RE: [Programmer-VB] Always On Top

[Sistyo Alfan Tribowo]

‘Copy Code ini di Module   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   Sub AlwaysOnTop (FrmID as Form, OnTop as Integer)     Const SWP_NOMOVE = 2     Const SWP_NOSIZE = 1     Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE     Const HWND_TOPMOST = -1     Const HWND_NOTOPMOST = -2     If then         HWND_TOPMOST, 0, 0, 0, 0, FLAGS)     Else         >     End If End Sub     ‘Copy code ini di form Call AlwaysOnTop(me,-1)  ‘untuk always on top   Call AlwaysOnTop(me,-2)  ‘untuk normal (tidak always on top)     From: Programmer-VB@yahoogroups.com [mailto:Programmer-VB@yahoogroups.com] On Behalf Of skdmdn Sent: 04 January 2006 09:15 To: programmer-vb@yahoogroups.com; [EMAIL PROTECTED] Subject: [Programmer-VB] Always On Top   Salam VB,   Bagaimana membuat program agar tampilannya selalu 'Always on top' ?   Maap kurang jelas   Thank's B4 Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.