Noob friendly HQ VB Programming!
2014-07-07, 02:53 PM,
(This post was last modified: 2014-07-07, 08:29 PM by DutchPride.)
#1




Code:
Public Class Form1
    'Declare the variables
    Dim drag As Boolean
    Dim mousex As Integer
    Dim mousey As Integer

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

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        'If drag is set to true then move the form accordingly.
        If drag Then
            Me.Top = Windows.Forms.Cursor.Position.Y - mousey
            Me.Left = Windows.Forms.Cursor.Position.X - mousex
        End If
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        drag = False 'Sets drag to false, so the form does not move according to the code in MouseMove
    End Sub
End Class
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        PictureBox1.Width = PictureBox1.Width + 1
        PictureBox1.Visible = True
        If PictureBox1.Width = 387 Then
            Timer1.Stop()
        End If
    End Sub
Latest Thanks - View all

shopia(2015-04-06 04:09 AM) Cornholio(2014-07-07 10:01 PM) TotalTrue(2014-07-07 04:46 PM) Popcorn0(2014-07-07 04:36 PM) 
Reply
2014-07-07, 04:36 PM,
#2
Thanks for sharing :)
Latest Thanks - View all

kelenter(2014-07-07 08:57 PM) 
Reply
2014-07-07, 08:29 PM,
#3
Thanks for taking the time to make this video, I have just added in the video for you so it's easier for everyone to watch ;)
Latest Thanks - View all

kelenter(2014-07-07 08:56 PM) 

Any questions related to CPA belong here.
Before posting, make sure you are in the correct section.

I am temporarily absent due to family circumstances.

Reply
2014-07-07, 08:57 PM,
(This post was last modified: 2014-07-07, 08:57 PM by kelenter.)
#4
(2014-07-07, 08:29 PM)DutchPride Wrote: Thanks for taking the time to make this video, I have just added in the video for you so it's easier for everyone to watch ;)

thank you very much

(2014-07-07, 04:36 PM)Popcorn0 Wrote: Thanks for sharing :)

u r welcome mate )
Reply
2014-07-07, 10:02 PM,
#5
thank you for the paint part i dident now about that :)
Latest Thanks - View all

kelenter(2014-07-07 10:08 PM) 
Reply
2014-07-07, 10:08 PM,
#6
(2014-07-07, 10:02 PM)Cornholio Wrote: thank you for the paint part i dident now about that :)

U r welcome ))))
Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
  [TUT][HQ] How To Massively Autopost on Facebook Groups | Targeted [HQ] [TUT] peacemaker 184 37,559 2017-08-25, 09:20 PM
Last Post: utenbaho
  [GET] FBLander WP Plugin Paid For Free - HQ Landing Page Maker trafficbeast 22 3,732 2014-10-31, 07:38 PM
Last Post: barthezz
  CPA Noob's Facebook Ad casestudy suthars4n 22 2,397 2014-01-03, 10:48 AM
Last Post: VIP
  [FREE] HQ Youtube video views for all YalaYolo 54 3,418 2013-12-22, 12:29 AM
Last Post: kanonier
  Any way to buy HQ views WITHOUT paypal Darkshades 7 594 2013-11-02, 04:18 AM
Last Post: Darkshades




About Us | Contact Us | CPA Elites | Advertise | Stats | Staff Team

© 2013-2017 CPA Elites Ltd
Enhanced by MyBB and WallBB
Return to top