[VB.NET] Move a bordless Form

Welcome to CPAElites - the original incentive CPA affiliate marketing forum online, solely based on "Cost Per Action".

Be a part of something great, join today! Learn CPA marketing with CPAElites, we will teach you everything such as the best CPA networks, CPA offers with highest payouts and best conversion rates, unsaturated CPA niches, most effective traffic sources and more.

lanzye

Well-known member
VIP Elites CPAElites Classic (1.0)
Joined
May 17, 2013
Messages
418
Reaction score
0
Age
30
Location
Italy
Hi guys, i'm here to explain you how to move a form without border.

LET'S START!
1. Open VisualBasic and make new project or open one of your project.
2. Now go in the Form Properties, find FormBorderStyle and select None
mzCres2.png

3. Now double-click on Form and paste this after Public Class Form1
PHP:
 Private selx As Integer
   Private sely As Integer
   Private selz As Boolean

   Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
       selz = True
       selx = e.X
       sely = e.Y
   End Sub

   Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
       If selz = True Then
           Me.Left -= (selx - e.X)
           Me.Top -= (sely - e.Y)
       End If
   End Sub

   Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
       selz = False
   End Sub

5YkGR9h.png


Now you can make custom background for your form and he will look like custom skin.
 

Techfreak

Active member
Joined
May 20, 2013
Messages
38
Reaction score
0
I was gonna make a similar tut ! Thanks for ur time ;) U could add more screenshots though !! Show examples ! :D
 

lanzye

Well-known member
VIP Elites CPAElites Classic (1.0)
Joined
May 17, 2013
Messages
418
Reaction score
0
Age
30
Location
Italy
Yes, when i have more time i will show some example.
 

lanzye

Well-known member
VIP Elites CPAElites Classic (1.0)
Joined
May 17, 2013
Messages
418
Reaction score
0
Age
30
Location
Italy
Make this community big as a CPA/PPD Pedia.
 
 
Top Bottom