Using ShowDialog

[BlackThunder]

here's the breakdown of the code


in frmMain

Private Sub mnuFavorite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFavorite.Click
        Dim fmaps As New frmMaps
        fmaps.ShowDialog()
    End Sub

in frmMaps

Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
        Dim fe As New frmEditMap
        Dim map As clsMap
        fe.Init()
 
        If fe.ShowDialog = DialogResult.OK Then
            map = New clsMap
            map.Map = fe.txtMap.Text
            map.Game = fe.cmbGames.Text
            map.CaseSensitive = fe.chkCase.Checked
            map.PartialMatch = fe.chkPartial.Checked
            map.ID = maps.Count
            maps.Add(map)
        End If
 
        fe.Dispose()
        fe = Nothing
 
        Renumber()
        Populate()
 
        Me.DialogResult = DialogResult.None
 
    End Sub

in frmEditMap

Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
        Me.DialogResult = DialogResult.OK
        Me.Close()
    End Sub