DTE.ActiveDocument.Selection.WordRight(True)
DTE.ActiveDocument.Selection.Delete()
DTE.ActiveDocument.Selection.Text = "Private m_"
DTE.ActiveDocument.Selection.EndOfLine(True)
DTE.ActiveDocument.Selection.Copy()
DTE.ActiveDocument.Selection.EndOfLine()
DTE.ActiveDocument.Selection.NewLine(2)
DTE.ActiveDocument.Selection.Text = "Public Property "
DTE.ActiveDocument.Selection.Paste()
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.LineUp(False, 2)
DTE.ActiveDocument.Selection.StartOfLine _
(vsStartOfLineOptions.vsStartOfLineOptionsFirstText)
DTE.ActiveDocument.Selection.WordRight(False, 2)
DTE.ActiveDocument.Selection.WordRight(True)
DTE.ActiveDocument.Selection.Copy()
DTE.ActiveDocument.Selection.LineDown(False, 2)
DTE.ActiveDocument.Selection.Indent(2)
DTE.ActiveDocument.Selection.Text = "Return m_"
DTE.ActiveDocument.Selection.Paste()
DTE.ActiveDocument.Selection.LineDown(False, 3)
DTE.ActiveDocument.Selection.Indent(2)
DTE.ActiveDocument.Selection.Text = "m_"
DTE.ActiveDocument.Selection.Paste()
DTE.ActiveDocument.Selection.Text = "= Value"