Add comments using macros in Visual Studio

 

 

Imports system <br/> imports envdte <br/> imports envdte80 <br/> imports system. diagnostics </P> <p> Public module module1 </P> <p> dim struser = "// my name" <br/> dim strdate = "10-augest-2010" <br/> dim strcqid = "44553: "<br/> dim strcqheadline =" crash when click OK button... "<br/> dim strcomment = struser & strdate & strcqid & strcqheadline </P> <p> sub begincomment () <br/> 'dte. activedocument. selection. newline () <br/> DTE. activedocument. selection. TEXT = strcomment & "[begin]" <br/> end sub </P> <p> sub endcomment () <br/> 'dte. activedocument. selection. newline () <br/> DTE. activedocument. selection. TEXT = strcomment & "[end]" <br/> end sub <br/> sub beginendcomment () <br/> DTE. activedocument. selection. TEXT = strcomment & "[begin]" <br/> DTE. activedocument. selection. newline () <br/> DTE. activedocument. selection. newline () <br/> DTE. activedocument. selection. TEXT = strcomment & "[end]" <br/> end sub <br/> end module </P> <p>