Mistři v programování na #hovnokod

Visual Basic #564

For intAtts As Integer = 5 To strParams.Length - 1
            Select Case (intAtts + 1) Mod 3
                Case 0
                    '--- Set where to find the attachments
                    Select Case strParams(intAtts).ToUpper
                        Case "TASKVIEW"
                            strAttach = CType(Me.Parent, ctlTaskViewTemplate).ctlDocNavigator.ContainerID.ToString & ","
                        Case "WORKITEM"
                            strAttach = WorkItem.WorkItemContainer.ToString & ","
                        Case "CASE"
                            strAttach = BFECase.CaseContainerID.ToString & ","
                    End Select
                Case 1
                    '--- Set the relative path of where to find the attachments
                    strAttach = strAttach & strParams(intAtts) & ","
                Case 2
                    '--- Set the type of document used to find the attachments
                    strAttach = strAttach & strParams(intAtts)
                    arrAttachments.Add(strAttach)
                    strAttach = ""
            End Select
        Next intAtts

HovnoKod,