codice:
    Private Sub mnisetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnisetup.Click
        Dim setup As New frmsetup
        setup.ShowDialog()
    End Sub