Collapsing Code

T

techmanbd

Junior Contributor
Joined
Sep 10, 2003
Messages
397
Location
Burbank, CA
I have the following code.

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?
 
Back
Top