1) Open new project
2)Edit your form to make red dot ( set red background and do smaller)
3)Add this in module:
Code:
Option Explicit
Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
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 Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) _
As Long
If Topmost = True Then 'Make the window topmost
SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, _
0, FLAGS)
Else
SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, _
0, 0, FLAGS)
SetTopMostWindow = False
End If
End Function
4)Make ON button and write this code:
Code:
Dim lR As Long
lR = SetTopMostWindow(Form1.hwnd, True)
5)Make OFF button and write this:
Code:
Dim lR As Long
lR = SetTopMostWindow(Form1.hwnd, False)
6)StartUpPosition select to 1
And you r done
ALL CREDITS GO TO:
w00t?
[HIDE="123"]Enjoy the fkin noobs LOL[/HIDE]