WorkItem Class

Public Function NewWorkItem(ByVal collectionName as String,
                                            ByVal projectName As String,
                                            ByVal workItemTypeName As String) As WorkItem
    Dim retval As WorkItem = Nothing
    If Not String.IsNullOrWhiteSpace(collectionName) _
         AndAlso Not String.IsNullOrWhiteSpace(projectName) _
            AndAlso Not String.IsNullOrWhiteSpace(workItemTypeName) Then
        Try
            Dim TFSInstance = TfsTeamProjectCollectionFactory.GetTeamProjectCollection(New Uri(String.Concat("http://myserver:8080/tfs/",collectionName)),
                                                                                   New UICredentialsProvider())
            Dim workItemService = CType(TFSInstance.GetService(Of WorkItemStore)(), WorkItemStore)
            Dim prj = (From p In workItemService.Projects.OfType(Of Project)()
                      Where p.Name = projectName
                      Select p).FirstOrDefault()
 
            If prj IsNot Nothing Then
                Dim wiType = (From i In prj.WorkItemTypes.OfType(Of WorkItemType)()
                              Where i.Name = workItemTypeName
                              Select i).FirstOrDefault()
                If wiType IsNot Nothing Then
                    retval = wiType.NewWorkItem()
                Else
                    Throw New ArgumentOutOfRangeException()
                End If
            End If
        Catch ex As Exception
            Throw
        End Try
    Else
        Throw New ArgumentNullException()
    End If
    Return retval
End Function