Try
            Dim frmSett As New frm_settings
            frmSett.Settings = MySettings
            Dim res As DialogResult = frmSett.ShowDialog
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try