Public Class Form3 Private Sub ExitButton_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitButton.Click 'Event generated by .NET Framework to respond to mouse click or enter key. Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim oForm As New Form1 oForm.Show() Me.Hide() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim oForm As New Form2 oForm.Show() Me.Hide() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim oForm As New Form5 oForm.Show() Me.Hide() End Sub Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub CreateBooklabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateBooklabel.Click End Sub End Class