Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As EventArgs) Handles MyBase.Load
For Each monitor As Screen In Screen.AllScreens
If Not monitor.Primary Then
Me.Location = monitor.Bounds.Location
Me.WindowState = FormWindowState.Maximized
Exit For
End If
Next
End Sub