Structure User Dim First As String Dim Middle As String Dim Last As String Dim Addr1 As String Dim Addr2 As String Dim City As String Dim State As String End Structure Dim My_Users(25000) As User Private Sub Legacy_User_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Legacy_User.Click Dim form As New Legacy_Screen() Dim screen As Screen ' Display a form on second screen (0, 1) screen = screen.AllScreens(1) ' Set the StartPosition to Manual otherwise the system will assign an automatic start form.StartPosition = FormStartPosition.Manual form.Location = screen.Bounds.Location ' Show the form form.ShowDialog(Me) End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)