Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown Dim x As Integer = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width Dim y As Integer = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height Me.Left = 0 Me.Top = 0 Me.Width = x Me.Height = y End Sub