Public Class frmCustomers Inherits System.Windows.Forms.Form Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click ExitToolStripMenuItem_Click(sender, e) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Show a second form Dim f As New frmCustomerDetails 'Show as a dialog box (modal) f.ShowDialog() 'Show as a owned form (non-modal) 'Me.AddOwnedForm(f) 'f.Show() End Sub Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click Dim f As frmAbout = New frmAbout() f.Show() End Sub End Class