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

Join the forum, it's quick and easy

GLOBAL OFFENSIVE SECURITY HACKERS
Anonymous Philippines
Anonymous General Santos
Anonymous Davao
MeowSec
GLOBAL OFFENSIVE SECURITY HACKERS
Would you like to react to this message? Create an account in a few clicks or log in to continue.
Log in

I forgot my password

Latest topics
» Windows 7 Ultimate SP1 x64 Hydra -Team OS-
by Zaisen Tue Dec 24, 2019 10:27 am

» Windows 10 Pro x64 1909 Fortresses
by Zaisen Tue Dec 24, 2019 10:00 am

» ANDROID MULTI TOOL V1.02B
by Sphere Mon Apr 22, 2019 6:21 pm

» GSD ANDROID TOOL
by Sphere Mon Apr 22, 2019 6:01 pm

» Hard Disk Sentinel Pro 5.30.6 + CRACK
by Sphere Tue Apr 16, 2019 9:20 am

» DEEP FREEZE v7.22 + KEY
by Sphere Tue Apr 16, 2019 8:57 am

» KMS SERVER WINDOWS ACTIVATOR
by Sphere Fri Apr 12, 2019 10:53 am

» Nck AndroidMTK Setup 2562 Pass-GSMXTEAM
by Sphere Thu Mar 28, 2019 6:50 pm

» Windows could not complete the installation. To install Windows on this computer
by Sphere Thu Mar 28, 2019 6:30 pm

» MTK FRP BYPASS TOOL
by Sphere Thu Mar 07, 2019 5:13 pm

» Shutdown the PC if the monitor is turned off or not connected (VGA / HDMI) within a period of time. #VB.NET
by Sphere Wed Jan 23, 2019 5:50 pm

» Termux (Facebook-Bruteforce)
by Sphere Tue Jan 08, 2019 12:10 pm

» VIRUS MAKER!
by Sphere Tue Jan 08, 2019 11:35 am

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

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

Ads

    No ads available.


    [Release] FormBoardStyle = None ( Moving )

    2 posters

    Go down

    [Release] FormBoardStyle = None ( Moving ) Empty [Release] FormBoardStyle = None ( Moving )

    Post by Sphere 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
    Sphere
    Sphere
    Master Admin
    Master Admin

    Moods : Nature
    Posts : 64
    Join date : 2017-09-08

    https://eliteph.forumotion.com

    Back to top Go down

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

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

    Good but whats the feature at ano to???
    Raml[ZIi]
    Raml[ZIi]
    Registered Member

    Posts : 21
    Join date : 2018-01-02

    Back to top Go down

    Back to top

    - Similar topics

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