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

Private Sub frm_settings_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Me.Height = My.Settings.frm_optSize.X
        Me.Width = My.Settings.frm_optSize.Y
 
        lstbox.Items.Clear()
        For T As Integer = 0 To myEinstellungen.Searchfolders.Count - 1
            lstbox.Items.Add(myEinstellungen.Searchfolders.Item(T))
        Next
 
        'laden
        txt_destinationPath.Text = myEinstellungen.Destination
        chk_moveInstead.Checked = myEinstellungen.MoveInstead
        txt_Fileformat.Text = myEinstellungen.SaveFileMask
 
        chk_WriteID3V1.Checked = myEinstellungen.TAG_WriteID3V1
        chk_WriteID3V2.Checked = myEinstellungen.TAG_WriteID3V2
 
        chk_Tag_WriteTrack.Checked = myEinstellungen.TAG_WriteTrack
        chk_TAG_WriteInterpret.Checked = myEinstellungen.TAG_WriteArtist
        chk_TAG_WriteTitel.Checked = myEinstellungen.TAG_WriteTitel
        chk_TAG_WriteAlbum.Checked = myEinstellungen.TAG_WriteAlbum
        txt_AlbumFormat.Text = myEinstellungen.TAG_WriteAlbumMask
 
        'TOP100 URL
        txt_Link.Text = myEinstellungen.SearchURL
 
        'M3U support
        chk_M3U.Checked = myEinstellungen.M3U_WriteFile
        txt_SavePlaylist.Text = myEinstellungen.M3U_FilePath
        If myEinstellungen.M3U_FileSource = "SC" Then
            rdbtn_source.Checked = True
        Else
            rdbtn_destination.Checked = True
        End If
 
 
End Sub

VB RULEZ !