منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Private Sub B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click
        Me.Location = New Point(0, 0)
    End Sub

    Private Sub B2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2.Click
        Dim x As Integer = Screen.PrimaryScreen.WorkingArea.Width - Me.Width
        Dim y As Integer = 0
        Me.Location = New Point(x, y)
    End Sub

    Private Sub B3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3.Click
        Dim x As Integer = 0
        Dim y As Integer = Screen.PrimaryScreen.WorkingArea.Height - Me.Height
        Me.Location = New Point(x, y)
    End Sub

    Private Sub B4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4.Click
        Dim x As Integer = Screen.PrimaryScreen.WorkingArea.Width - Me.Width
        Dim y As Integer = Screen.PrimaryScreen.WorkingArea.Height - Me.Height
        Me.Location = New Point(x, y)
    End Sub

    Private Sub B55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5.Click
        Dim r As Integer = Me.Width * 0.5
        Dim z As Integer = Me.Height * 0.5
        Dim x As Integer = Screen.PrimaryScreen.WorkingArea.Width * 0.5 - r
        Dim y As Integer = Screen.PrimaryScreen.WorkingArea.Height * 0.5 - z
        Me.Location = New Point(x, y)
    End Sub