Con's AK Spray Helper [Idea]

[yasiny]

I coded a small program that shows spray of AK.
Spray Patterns





I will not publish this to protect program from VAC detection. I am just giving the idea. Some coders can put this together for public tho.

.Net Code Parts

Imports System.Runtime.InteropServices
#Region " Functions"  
     'GetAsyncKeyState and make Form click trough functions
    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Private Shared Function GetAsyncKeyState(ByVal vkey As System.Windows.Forms.Keys) As Short
    End Function
    <DllImport("user32.dll", EntryPoint:="GetWindowLong")> Public Shared Function GetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer) As Integer
    End Function
    <DllImport("user32.dll", EntryPoint:="SetWindowLong")> Public Shared Function SetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
    End Function
#End Region

 Private InitialStyle As Integer

  'PictureBox1 size is 156; 244
    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        InitialStyle = GetWindowLong(Me.Handle, -20)
        SetWindowLong(Me.Handle, -20, InitialStyle Or &H80000 Or &H20)
        Me.Location = New Point(Me.Location.X, Me.Location.Y - 52)
    End Sub

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.LButton) Then
            
                Me.TopMost = True
                PictureBox1.Refresh()
                PictureBox1.Visible = True
                
        Else
      
            PictureBox1.Visible = False
       
        End If

[Hunter]

/Moved to the correct section.

[ImStyL]

This a great i idea, but i'd prefer using this...
https://www.mpgh.net/forum/showthread.php?t=1046468