Dim screenWidth as Integer = Screen.PrimaryScreen.Bounds.Width Dim screenHeight as Integer = Screen.PrimaryScreen.Bounds.Height