[woodo]

Why do you have a timer in method 3?

Code

Dim Point As New System.Drawing.Point()
Dim X, Y As Intege

Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
  If e.Button = MouseButtons.Left Then
    Point = Control.MousePosition
    Point.X = Point.X - (X)
    Point.Y = Point.Y - (Y)
    Me.Location = Point
  End If
    End Sub

    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
  X = Control.MousePosition.X - Me.Location.X
  Y = Control.MousePosition.Y - Me.Location.Y
    End Sub

[-na.Talish]

This has been made 100 times before, I know your just trying to contribute and help out but try using the search before posting.

[S!rk0]

Nice post but you need to update with new theme (Custom Theme) and with a pack with a lot of PSD and their Fonts ...

[-na.Talish]

sorry about that...🤦‍♂🤦‍♂🤦‍♂

Heh, no need to be sorry bro. I mean, your contributing I'm just saying maybe it could have saved you a bit of time making this tut lol. Most people here wanna see nice unique tuts.

But kudos for you for spending your time on this.

[Krex Productions™]

This is great, thank you so much for sharing this Tutorial Dude.

[Charny]

Can you explain me why people hates timers??

Because timers are shit...

[TheAJMxD]

Nice tutorial bro :D

:-0

[ananui81]

Oh my gawd man .. THANK YOU I LOVE YOU
THIS WAS just what i was looking for .. i was asking myself how do noobs make proggies with awesome interfaces .. turns out .. they ARE PREMADE !!
THANK YOUU

[Galaxy Wave]

thanks for this will try later

[Crazychaos]

dotnetbar is the simpliest way

[steelpkers]

thats really cool :D, I'll try this

[steelpkers]

any method with vb 6? because this one is only for 08 and 10

[lnfamous]

Why do you have a timer in method 3?

Code

Dim Point As New System.Drawing.Point()
Dim X, Y As Intege

Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
  If e.Button = MouseButtons.Left Then
    Point = Control.MousePosition
    Point.X = Point.X - (X)
    Point.Y = Point.Y - (Y)
    Me.Location = Point
  End If
    End Sub

    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
  X = Control.MousePosition.X - Me.Location.X
  Y = Control.MousePosition.Y - Me.Location.Y
    End Sub

How would you do this in vb6?

[GodWall]

Wow thanks this was huge help, going to make own gui from now on :)