Better Way to Show and Hide Items in Project
Assuming OPTION STRICT OFF (since I don't know the type of Grid.Cols.Item):

Private Sub ShowAlternateRows(show As Boolean)
    Dim grpShow = 
    {
        splitter, lblAlternateActualPercent, 
        lblAltEstimated, lblStaticAltEstimated,  
        Grid.Cols.Item("Alternate Type"), Grid.Cols.Item("Alternate Start"),
        Grid.Cols.Item("Alternate End"),  Grid.Cols.Item("Alternate Hours"),
        Grid.Cols.Item("Alternate Burn")
    }
    Dim grpHide = 
    {
        Grid.Cols.Item("Start Estimated"), Grid.Cols.Item("End Estimated"),
        Grid.Cols.Item("Start Actual"),    Grid.Cols.Item("End Actual"),
        Grid.Cols.Item("Estimated Hours"), Grid.Cols.Item("Actual Hours"),
        Grid.Cols.Item("Burn Estimated"),  Grid.Cols.Item("Object Count"),
        Grid.Cols.Item("Request Count"),   Grid.Cols.Item("Resource Count"),
        lblStaticActual,  lblActual,
        lblActualPercent, lblStaticEstimated,
        lblEstimated, lblStaticFiltered,
        lblFiltered,  lblFilteredPercent
    }
    For Each ctrl in grpShow
        ctrl.Visible = show
    Next
    For Each ctrl in grpHide
        ctrl.Visible = Not show
    Next
End Sub