Visual Basic

<br />
    Dim _generator As System.CodeDom.Compiler.ICodeGenerator<br />
    Dim _writer As System.IO.TextWriter<br />
    Dim _codeGenOptions As System.CodeDom.Compiler.CodeGeneratorOptions<br />
<br />
        'Set the desired language to vb<br />
        Dim foo As New Microsoft.VisualBasic.VBCodeProvider<br />
        _generator = foo.CreateGenerator("C:\duncan.vb")<br />
<br />
<br />
        'Set the code generation options to be used when creating this class<br />
        _codeGenOptions = New System.CodeDom.Compiler.CodeGeneratorOptions<br />
        _codeGenOptions.BlankLinesBetweenMembers = True<br />
        _codeGenOptions.VerbatimOrder = False<br />
<br />
        If Not _generator Is Nothing Then<br />
            _writer = New System.IO.StreamWriter(fi.FullName)<br />
<br />
            Dim _myDocumentClass As New CodeTypeDeclaration("DuncansClass")<br />
            _myDocumentClass.Attributes = MemberAttributes.Public<br />
            _myDocumentClass.Comments.Add(New CodeCommentStatement(" Created " & System.DateTime.Now.ToString))<br />
<br />
                        Dim _txtmember As New CodeMemberField<br />
                        _txtmember.Type = New CodeTypeReference("System.String")<br />
                        _txtmember.Attributes = MemberAttributes.Private<br />
                        _txtmember.Name = _generator.CreateValidIdentifier("_Duncan_Text")<br />
                        _txtmember.Comments.Add(New CodeCommentStatement("Text to use here "))<br />
                        _myDocumentClass.Members.Add(_txtmember)<br />
<br />
        End If<br />
<br />
_generator.GenerateCodeFromType(_myDocumentClass, _writer, _codeGenOptions)<br />

<br />
'Created 2007-04-21<br />
Public Class DuncansClass<br />
<br />
   'Text to use here<br />
   Private _Duncan_text As String<br />
   <br />
End Class<br />

<br />
'Created 2007-04-21<br />
Public Class DuncansClass<br />
<br />
  #Region "Private members"<br />
   'Text to use here<br />
   Private _Duncan_text As String<br />
   #End Region<br />
<br />
End Class<br />