Log in

I forgot my password

Search
 
 

Display results as :
 

 


Rechercher Advanced Search

Latest topics
» [Release] rules of Survival Hack v1.7
by Zaisen Wed Apr 25, 2018 4:43 pm

» ros bisaya hack bot bot nimo
by mansera213 Mon Apr 16, 2018 3:29 pm

» [Release] ROS D3D undetected until patch
by Raml[ZIi] Wed Mar 21, 2018 12:20 pm

» [Release] WARROCK D3D BASE
by tokoynwa Mon Mar 12, 2018 5:47 pm

» [Info] FACEBOOK LOGIN PROBLEM ( FIX )
by Zaisen Sat Mar 10, 2018 3:46 pm

» [Release] Simple Hack 2k18!!
by FLORANTE Tue Mar 06, 2018 2:24 am

» [Request] FULL SOURCE GoLoader latest Version...
by Zaisen Sun Mar 04, 2018 5:11 pm

» [Help] please Release a Simple Wall Hack with menu guys
by FLORANTE Wed Feb 28, 2018 12:57 am

» [Info] Release Later.. D3D Hack
by FLORANTE Wed Feb 28, 2018 12:55 am

» Request Forum
by FLORANTE Tue Feb 27, 2018 5:09 am

» [Project] Crossfire Ecoin Debugger
by FLORANTE Tue Feb 27, 2018 5:08 am

» [Info] DDOS ATTACK ( PINOY DDOS )
by FLORANTE Tue Feb 27, 2018 4:32 am

» [Release] ROS BISAYA AIMBOT
by FLORANTE Tue Feb 27, 2018 4:28 am

» [Preview] WIFI HACKING USING ANDROID ( ROOT )
by Zaisen Sun Feb 25, 2018 9:39 am

» [Help] How to use Termux??
by Raml[ZIi] Thu Feb 15, 2018 5:28 pm


[Release] FormBoardStyle = None ( Moving )

Go down

Release [Release] FormBoardStyle = None ( Moving )

Post by Zaisen on Wed Jan 17, 2018 3:39 pm

Code:
Public Class Form1
    Dim drag As Boolean = False
    Dim mousex As Integer, mousey As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub


    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        drag = True
        mousex = Windows.Forms.Cursor.Position.X - Me.Left
        mousey = Windows.Forms.Cursor.Position.Y - Me.Top
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If drag Then
            Me.Left = Windows.Forms.Cursor.Position.X - mousex
            Me.Top = Windows.Forms.Cursor.Position.Y - mousey
        End If
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        drag = False
    End Sub
End Class
avatar
Zaisen
Admin Hacker
Admin Hacker

Posts : 37
Join date : 2017-09-08

View user profile http://globaloffensive.forumotion.com

Back to top Go down

Release Re: [Release] FormBoardStyle = None ( Moving )

Post by Raml[ZIi] on Sun Jan 28, 2018 4:22 pm

Good but whats the feature at ano to???
avatar
Raml[ZIi]
WRcod3r
WRcod3r

Posts : 18
Join date : 2018-01-02

View user profile

Back to top Go down

Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum