Visual Basic

Private Sub mnuFileOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileOpen.Click
    If ofdOpenFile.ShowDialog = DialogResult.OK Then
        fileName = ofdOpenFile.FileName
        Dim openFile As New StreamReader(fileName)
        txtEdit.Text = openFile.ReadToEnd()
        openFile.Close()
    End If
End Sub

Private Sub mnuFileSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileSave.Click
    If Not fileName.Equals(String.Empty) Then
        Dim saveFileWriter As StreamWriter = File.CreateText(fileName)
        Dim strReader As New StringReader(txtEdit.Text)
        saveFileWriter.Write(strReader.ReadToEnd)
        saveFileWriter.Flush()
        saveFileWriter.Close()
        strReader.Close()
    End If
End Sub

Public Property Notes(ByVal index As Integer) As String<br />
  Get<br />
    Return m_Notes(index)<br />
  End Get<br />
  Set(ByVal Value As String)<br />
    m_Notes(index) = Value<br />
  End Set<br />
End Property

...
Private _childForm as MyChildFormClass = nothing
...
Private Sub OpenMyChildForm()
    If (_childForm Is Nothing) Then
        _childForm = new MyChildFormClass()
        _childForm.Show()
    Else
        _childForm.Activate()
    End If
End Sub