17-08-23, 09:42 PM
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
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