Zebra0.com

visual-basic listmanager2


The code for the button on the About Box is:

Public Class FrmAbout
    Private Sub BtnOk_Click(sender As Object, e As EventArgs) Handles BtnOk.Click
        Close()
    End Sub
End Class

The code for the menu item "About" on form1 is:

Private Sub mnuAbout_Click(sender As Object, e As EventArgs) Handles mnuAbout.Click
  'Show the about box
  FrmAbout.ShowDialog()
End Sub

See the finished code for form1.

Run and test your application.

NEXT: Select a Font