(TuT)How to create red dot (crosshair)

[w00t?]

1) Open new project

2)Edit your form to make red dot ( set red background and do smaller)

3)Add this in module:

 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:

 Dim lR As Long
         lR = SetTopMostWindow(Form1.hwnd, True)

5)Make OFF button and write this:

 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]

[TheBlueMax]

This is really useful !

[RGewrsgywergeryt4yerhrh]

Thank you!!!

[sukh13]

thxx w00t but there is many diffrent way to use red dot iam useing diffrent way its thats easy to use

[scoper1]

i get a error that says declare something and i cant run it help!

[radnomguywfq3]

i get a error that says declare something and i cant run it help!

Okay your using VB.net, You should be using VB.net, In VB.net you can simply use "Me.topmost = true" but if you want to do it the long way, at the top of any module put

public [Whatever needs to be declared]