Public Sub New()
InitializeComponent()
Dim r As Rectangle = Screen.PrimaryScreen.WorkingArea
Me.StartPosition = FormStartPosition.Manual
Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Width - Me.Width, Screen.PrimaryScreen.WorkingArea.Height - Me.Height)
End Sub