[سعود]

و عليكم السلام و رحمة الله و بركاته

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim frm As New Form
        frm.StartPosition = FormStartPosition.Manual
        frm.Size = New Size(222, 111)
        Dim fx As Integer = MousePosition.X
        Dim fy As Integer = MousePosition.Y
        frm.Location = New Point((fx - Button1.Left), (fy - frm.Height))
        frm.Show()
    End Sub