程序窗体（相关vb.net教程)
窗体本身也是一个控件，通过设置属性，引用方法，来解决问题，其常用的属性与方法：
一、窗体的特性
1、主要属性：
Controlbox:窗体左上角的控制框显示与否。
Maximizebox:最大化按钮显示与否。
Minimizebox:最小化按钮显示与否。
Formborderstyle:窗体的边框样式。
Topmost:如果有两个以上的窗体，且都处于启动中，则此值为true时总能覆盖其它值为false的窗体。
程序见，窗体属性演示与close end
2、主要方法：
Show:显示窗体。
Hide:瘾藏窗体。
Close:关闭当前窗口，如果不是启动窗口，不一定退出应用程序。
End:停止程序的执行，即退出应用程序。
二、多窗体程序
应用实例一：
设计一个类似inputbox的输入窗体以完成字符串的输入。
分析：
此项目有两个窗体：form1是主窗体，上面一个按钮，单击调用输入窗体，并显示输入的内容。form2是输入窗体，上面有一个文本框，以完成输入，两个按钮，对输入内容的确定与除消，一个标签，提示输入字符串。输入窗体的整下处理是通过一个函数myinputbox完成的。
说明：
1、两个按钮的DialogResult属性分别设置为：OK，Cancel。
2、将窗体设置为对话框时，需使用函数：ShowDialog()
程序见，自制inputbox的输入框，程序为：
Public Class Form1
    Function myinputbox(ByVal p As String, ByVal til As String) As String
        Form2.Text = til
        Form2.Label1.Text = p
        Form2.TextBox1.Text = ""
        If Form2.ShowDialog() = Windows.Forms.DialogResult.OK Then
            myinputbox = Form2.TextBox1.Text
        Else
            myinputbox = ""
        End If
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = myinputbox("请输入字符串：", "输入")
    End Sub
End Class
应用实例二：
设计一个用户账号与密码输入验证对话框，进行用户身份验证，如果输入正确则可以进入主程序，否则给出提示后退出程序，输入时只给三次机会。
程序见，用户账号与密码输入验证，程序为：
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Static n As Integer
        Dim use, pas As String
        Me.Hide()
        Do
            Form2.TextBox1.Text = ""
            Form2.TextBox2.Text = ""
            If Form2.ShowDialog = Windows.Forms.DialogResult.OK Then
                use = Form2.TextBox1.Text
                pas = Form2.TextBox2.Text
                If use = "xxx" And pas = "123" Then
                    MsgBox("密码正确，可以进入！", 32, "提示")
                    Me.Show()
                    Exit Sub
                Else
                    MsgBox("密码不对！")
                End If
            Else
                End
            End If
            n = n + 1
        Loop While n < 3
        MsgBox("您已尝试了3次，没成功，程序终止！")
        Me.Close()
End Sub