Dim j As Integer
            Dim g As Integer
            Dim arrallCommentLineVb(1) As String
            Dim arrallCommentLineCs(2) As String
            arrallCommentLineVb(0) = "rem"
            arrallCommentLineVb(1) = "'"
            arrallCommentLineCs(0) = "//"
            arrallCommentLineCs(1) = "/*"
            arrallCommentLineCs(2) = "*/"
            If szProjectExt = ".cs" Then
                For g = 0 To 1
                    txtWriteCode.SelectionStart = txtWriteCode.Find( _
                      arrallCommentLineVb(g))
                    txtWriteCode.SelectionColor = Color.Green
                Next
            ElseIf szProjectExt = ".vb" Then
                For j = 0 To 2
                    txtWriteCode.SelectionStart = txtWriteCode.Find( _
                      arrallCommentLineCs(j)) 
                    txtWriteCode.SelectionColor = Color.Green
                Next
            End If
            For k = 0 To 4
                txtWriteCode.SelectionStart = txtWriteCode.Find( _
                  arrallCommentLine(k)) 
                txtWriteCode.SelectionColor = Color.Green
            Next

InvalidArgument=Value mit dem Wert -1 ist für SelectionStart ungültig.
Parametername: SelectionStart

Hey, was geht?