[سعود]

PHP كود :

Public Class Form1
    Dim ax As Integer
    Dim ay As Integer
    Dim dr As Boolean

    Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
        If e.Button = MouseButtons.Left Then
            dr = True
            ax = MousePosition.X - Me.Left
            ay = MousePosition.Y - Me.Top

        End If
    End Sub

    Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
        If dr Then
            Me.Left = Windows.Forms.Cursor.Position.X - ax
            Me.Top = Windows.Forms.Cursor.Position.Y - ay

        End If
    End Sub

    Private Sub Panel1_MouseUp(sender As Object, e As MouseEventArgs) Handles Panel1.MouseUp
        dr = False
    End Sub



    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Hide()
        Me.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ProgressBar1.Maximum = 100
        If b.IsBusy = False Then b.RunWorkerAsync()
    End Sub

    Private Sub b_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles b.DoWork
        Dim r As Integer
        For r = 0 To 100
            Me.BeginInvoke(New MethodInvoker(Sub()
                                                 ProgressBar1.Value = r
                                                 ListBox1.Items.Add("سبحان الله وبحمده سبحان الله العظيم " & "- " & r & " -")
                                             End Sub))
            Threading.Thread.Sleep(1500)
        Next
    End Sub
End Class