Collapsing Code

[techmanbd]

I have the following code.

 

        Private Sub cmdForward_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles cmdForward.MouseDown
       booFor = True
       tmrPiston.Enabled = True
   End Sub
   'When cmdForward button is released, stops the tmrPiston
   Private Sub cmdForward_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles cmdForward.MouseUp
       booFor = False
       tmrPiston.Enabled = False
   End Sub
   'When cmdRev button is pushed down, Then starts tmrPiston and runs the 
   'code so piston moves in reverse
   Private Sub cmdRev_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles cmdRev.MouseDown
       booRev = True
       tmrPiston.Enabled = True
   End Sub
   'When cmdRev button is released, stops the tmrPiston
   Private Sub cmdRev_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles cmdRev.MouseUp
       booRev = False
       tmrPiston.Enabled = False
   End Sub

 

 

Basically what I want to do is collapse this code at once, Like a section and call it the TAB1 section, that way I don't have to see all ths code when I am working on somthing else on the same form. Is there a way to do this?

[techmanbd]

Never mind, I figured it out.

 

#REGION "NAME OF REGION"

#END REGION