' Check whether a string starts with one of multiple possible choices.' Return -1 if no possible string matches the start of the source,'  otherwise return the index of the matching string.'' Examples:'    Debug.WriteLine(StartsWith("This is my test line", True, "this",'  "that")) ' => -1'    Debug.WriteLine(StartsWith("This is my test line", True, "That",'  "This")) ' => 1'    Debug.WriteLine(StartsWith("This is my test line", False, "this",'  "that")) ' => 0'    Debug.WriteLine(StartsWith("This is my test line", False, "That",'  "Those")) ' => -1Function StartsWith(ByVal source As String, ByVal caseSensitive As Boolean, _    ByVal ParamArray parts() As String) As Integer    Dim i As Integer    For i = 0 To parts.Length - 1        Dim part As String = parts(i)        If caseSensitive Then            If source.StartsWith(part) Then Return i        Else            If source.ToLower().StartsWith(part.ToLower()) Then Return i        End If    Next    ' if we get here, the source does not start with one of the possible     ' choices, so return -1    Return -1End Function