Log in
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
Page 1 of 1
[Release] FormBoardStyle = None ( Moving )
- 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
Re: [Release] FormBoardStyle = None ( Moving )
Good but whats the feature at ano to???
Raml[ZIi]- Registered Member
- Posts : 21
Join date : 2018-01-02
Similar topics
» [Release]
» [Release] TERMUX FOR PC
» [Release] WINDOWS ACTIVATOR
» [Release] BINARY PASSWORD
» [Release] FACEBOOK GAME HACK
» [Release] TERMUX FOR PC
» [Release] WINDOWS ACTIVATOR
» [Release] BINARY PASSWORD
» [Release] FACEBOOK GAME HACK
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum