Private Sub cmd_Options_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmd_Options.Click
        Dim res As DialogResult
        Dim frmSett As New frm_settings
 
        frmSett.Settings = mySettings
        res = frmSett.ShowDialog
        frmSett.Dispose()
End Sub

VB RULEZ !