Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '在窗口加载时初始化应用程序
        InitializeApplication()
    End Sub

    Private Sub InitializeApplication()
        '在此处编写初始化应用程序的代码

        '添加学生管理界面
        Dim studentForm As New StudentForm()
......................

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '在窗口加载时初始化应用程序
        InitializeApplication()
    End Sub

    Private Sub InitializeApplication()
        '在此处编写初始化应用程序的代码

        '添加学生管理界面
        Dim studentForm As New StudentForm()
......................

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '在窗口加载时初始化应用程序
        InitializeApplication()
    End Sub

    Private Sub InitializeApplication()
        '在此处编写初始化应用程序的代码

        '添加学生管理界面
        Dim studentForm As New StudentForm()
......................

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '在窗口加载时初始化应用程序
        InitializeApplication()
    End Sub

    Private Sub InitializeApplication()
        '在此处编写初始化应用程序的代码

        '添加学生管理界面
        Dim studentForm As New StudentForm()
......................

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      ' Set the caption bar text of the form.   
      Me.Text = "tutorialspont.com"
   End Sub

   Private Sub txtID_MouseEnter(sender As Object, e As EventArgs)_
        Handles txtID.MouseEnter
      'code for handling mouse enter on ID textbox
      txtID.BackColor = Color.CornflowerBlue
      txtID.ForeColor = Color.White
   End Sub
......................

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      ' Set the caption bar text of the form.   
      Me.Text = "tutorialspont.com"
   End Sub

   Private Sub txtID_MouseEnter(sender As Object, e As EventArgs)_
        Handles txtID.MouseEnter
      'code for handling mouse enter on ID textbox
      txtID.BackColor = Color.CornflowerBlue
      txtID.ForeColor = Color.White
   End Sub
......................

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      ' Set the caption bar text of the form.   
      Me.Text = "tutorialspont.com"
   End Sub

   Private Sub txtID_MouseEnter(sender As Object, e As EventArgs)_
        Handles txtID.MouseEnter
      'code for handling mouse enter on ID textbox
      txtID.BackColor = Color.CornflowerBlue
      txtID.ForeColor = Color.White
   End Sub
......................