[WAEL ABED]

الاستفسار الاول  

PHP كود :

Public Class Form1

    Dim xXx As Integer
    Private Sub Label1_MouseDown(sender As Object, e As MouseEventArgs) Handles Label1.MouseDown
        xXx = 2
    End Sub
    Private Sub Label1_MouseMove(sender As Object, e As MouseEventArgs) Handles Label1.MouseMove
        If xXx = 2 Then Label1.Top = Label1.Top + e.Y : Label1.Left = Label1.Left + e.X
    End Sub
    Private Sub Label1_MouseUp(sender As Object, e As MouseEventArgs) Handles Label1.MouseUp
        xXx = 1
    End Sub
End Class 


الاستفسار التانى 

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1_Click
        PictureBox1.Image.Save("C:/SS.png")
    End Sub 


بالتوفيق ان شاء الله