GLOBAL OFFENSIVE SECURITY HACKERS
Anonymous Philippines
Anonymous General Santos
Anonymous Davao
MeowSec
Log in

I forgot my password

Search
 
 

Display results as :
 

 


Rechercher Advanced Search

Latest topics
» GO LOADER OFFICAL
by Zaisen Mon Nov 05, 2018 8:39 pm

» [Help] How to use Termux??
by Zaisen Mon Nov 05, 2018 8:17 pm

» FACEBOOK HACKING W/ COOKIE
by Zaisen Mon Nov 05, 2018 6:40 pm

» WARROCK GO LOADER
by Zaisen Mon Nov 05, 2018 1:59 pm

» Termux (Facebook-Bruteforce)
by Ahlex_paf Tue Oct 23, 2018 6:30 pm

» XENOS INJECTOR 2.2.2
by emikako123 Tue Oct 23, 2018 2:14 am

» D3D HACK WARROCK PH
by tiel123 Mon Oct 22, 2018 7:34 pm

» Raml[Zii] D3D simple!
by mufak Tue Oct 16, 2018 6:09 pm

» [Release] Simple Hack 2k18!!
by Jason Thu Oct 11, 2018 7:51 pm

» Http Injector
by tiel123 Mon Oct 08, 2018 12:37 pm

» XENOS INJECTOR
by tiel123 Sun Oct 07, 2018 11:30 pm

» OllyDBG 64bit
by Zaisen Tue Oct 02, 2018 9:37 am

» Simple hack!!!Soon!
by ployaxngnext Sat Sep 29, 2018 11:00 pm

» THEME by your self
by Zaisen Wed Sep 26, 2018 9:47 am

» VISUAL C++ 2010 ONLY
by Zaisen Wed Sep 26, 2018 9:34 am


[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
______________
______________

Moods : WALAY KWARTA
Posts : 50
Join date : 2017-09-08

View user profile http://eliteph.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]
WARROCK ADMIN
WARROCK ADMIN

Posts : 21
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