Visual Basic

1. If I create a new form as you suggested, this new form will now be the first form that a user sees. Thus I would set the new form as the startup correct? If so how do you change the startup project? If not, how would I 'wire' this form into the application so that it displays before the current startup form?
2. What should I do to make the 'current' startup form display after the user clicks the button on the new modal form? Basically how do I have the new form call the existing startup form?
3. On the existing startup form, is there any kind of logic that I would need to change since it is not the startup form any longer? If so would you let me what I need to change and how would I make the applicable coding changes?

Dim formName As String = "Form1"
Dim formType As Type = Assembly.GetExecutingAssembly().GetTypes().[Single](Function(t) t.Name = formName)
Dim form As Form = DirectCast(Activator.CreateInstance(formType), Form)

Dim formType As Type = Assembly.GetAssembly(someType).GetTypes().[Single](Function(t) t.Name = formName)

frm1.Show(Me)

frm1.MyButton1.Enabled=True

Mybutton1 is not a member of System.Windows.forms.Form

Dim enableButton As Boolean = True
Dim form As Form = DirectCast(Activator.CreateInstance(formType, New Object() {enableButton}), Form)

Imports System.Reflection
Imports System.Windows.Forms

Public Class MyBaseForm
    Inherits Form

    Public Function IsControlEnabled(controlMemberName As String) As Boolean
        Dim control As Object = Me.GetType().GetProperty(controlMemberName, BindingFlags.Instance Or BindingFlags.NonPublic Or BindingFlags.Public).GetValue(Me, Nothing)
        Return CBool(GetType(Control).GetProperty("Enabled").GetValue(control, Nothing))
    End Function
End Class

Dim form As MyBaseForm = DirectCast(Activator.CreateInstance(formType), MyBaseForm)

SELECT 'DELETE FROM ['
+ A.[name] + '].['
+ B.[name] + '] WHERE ['
+ C.[name] + ']=1'
FROM [sys].[schemas] A
INNER JOIN [sys].[objects] B
ON A.[schema_id]=B.[schema_id]
INNER JOIN [sys].[columns] C
ON B.[object_id]=C.[object_id]
INNER JOIN [sys].[types] D
ON C.[system_type_id]=D.[system_type_id]
WHERE B.[schema_id]!=4
AND C.[name]='ToDelete'
AND D.[name]='boolean'