Do Shop Bug

Option Explicit On
Public Class Form1
    Private diff As Point
    Public Sub New()
        InitializeComponent()
    End Sub
    Private Sub picturebox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        'evento: pressione del tasto sinistro del mouse
        diff = New Point(-e.X, -e.Y) 'assegna a diff, la posizione del mouse (X; Y)

    End Sub
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        'evento: movimento del mouse
        If e.Button = MouseButtons.Left Then 'se il tasto è il sinistro...
            Dim mouse_loc As Point = Control.MousePosition
            mouse_loc.Offset(diff.X, diff.Y)
            Me.Location = mouse_loc 'assegna le coordinate alla posizione del form

        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Process.Start("http://" + TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalPayment&subaction=showDynamicItem&type=SPECIALOFFER&itemID=1&dosid=" + TextBox2.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Process.Start("http://" + TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalPayment&subaction=showDynamicItem&type=SPECIALOFFER&itemID=2&dosid=" + TextBox2.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Process.Start("http://" + TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalPayment&subaction=showDynamicItem&type=SPECIALOFFER&itemID=3&dosid=" + TextBox2.Text)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Process.Start("http://" + TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalPayment&subaction=showDynamicItem&type=SPECIALOFFER&itemID=4&dosid=" + TextBox2.Text)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Process.Start("http://" + TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalPayment&subaction=showDynamicItem&type=SPECIALOFFER&itemID=5&dosid=" + TextBox2.Text)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Process.Start("http://" + TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalPayment&subaction=showDynamicItem&type=SPECIALOFFER&itemID=6&dosid=" + TextBox2.Text)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Process.Start("http://" + TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalPayment&subaction=showDynamicItem&type=SPECIALOFFER&itemID=7&dosid=" + TextBox2.Text)
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Process.Start("http://" + TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalPayment&subaction=showDynamicItem&type=SPECIALOFFER&itemID=8&dosid=" + TextBox2.Text)
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("http://www.elitepvpers.com/forum/members/2564797-cane3.html")
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.Close()
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub
End Class