Public Shared Sub Connect( _
    ByVal fqServerName As String, ByVal showLoginUI As Boolean)
  Try
    m_serverName = fqServerName
    If showLoginUI Then
      Dim icp As ICredentialsProvider = New UICredentialsProvider
      m_tfs = TeamFoundationServerFactory.GetServer( _
        m_serverName, icp)
    Else
      m_tfs = TeamFoundationServerFactory.GetServer(m_serverName)
    End If

    m_tfs.Authenticate()

    ' Version Control Server
    m_tfsVCS = CType(m_tfs.GetService( _
      GetType(VersionControlServer)), _
      VersionControlServer)

    ' Work Item Store
    m_tfsWIT = CType(m_tfs.GetService( _
      GetType(WorkItemStore)), WorkItemStore)

    serverValidated = True
  Catch ex As Exception
    Throw New tfsUtilException( _
      String.Format(MSG_UNEXPECTED, "Connect"), ex, m_serverName)
  End Try
End Sub

Private Sub btnPickTFS_Click( _ 
    ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles btnPickTFS.Click

  Dim dpp As New DomainProjectPicker()

  Select Case dpp.ShowDialog(Me)
    Case Windows.Forms.DialogResult.OK
      mwis = Nothing
      mprj = Nothing

      mtfs = dpp.SelectedServer()
      Me.lblTFS.Text = mtfs.Name

      Me.cboTeamProjects.DataSource = dpp.SelectedProjects()
      Me.cboTeamProjects.DisplayMember = "Name"
      If dpp.SelectedProjects.Length > 0 Then
        Me.cboTeamProjects.Enabled = True
        Me.btnConnectWIS.Enabled = True
      End If
  End Select
End Sub

Private Sub UpdateInfoData()
  If mprj IsNot Nothing Then
    Me.cboWIType.DataSource = mprj.WorkItemTypes
    Me.cboWIType.DisplayMember = "Name"
    Me.cboWIType.Enabled = True

    Me.lblFieldCount.Text = mwis.FieldDefinitions.Count.ToString()

    Me.lblSQCount.Text = mprj.StoredQueries.Count.ToString()

    Dim wiql As String = String.Format( _
      "SELECT [System.Id] FROM WorkItems " & vbCrLf & _
      "WHERE [System.TeamProject] = '{0}'", mprj.Name)
    Me.lblWICount.Text = mwis.QueryCount(wiql).ToString()
  End If

Private Sub btnExecuteGrid_Click( _
    ByVal sender As System.Object, ByVal e As System.EventArgs) _
      Handles btnExecuteGrid.Click

  Dim wiqlToExecute As String = mSQ.QueryText.ToLower()
  If wiqlToExecute.Contains(MACRO_PROJECT) Then
    wiqlToExecute = wiqlToExecute.Replace( _
      MACRO_PROJECT, "'" & mSQ.Project.Name & "'")
  End If

  Using f As New frmWIList(mSQ.Project.Store, wiqlToExecute)
    f.ShowDialog(Me)
  End Using
End Sub

Private Sub btnExecuteList_Click( _
    ByVal sender As System.Object, ByVal e As System.EventArgs) _
      Handles btnExecuteList.Click

  Dim wiqlToExecute As String = mSQ.QueryText.ToLower()
  Dim params As New Hashtable
  Dim wic As WorkItemCollection = Nothing

  If wiqlToExecute.Contains(MACRO_PROJECT) Then
    params.Add(MACRO_PROJECT.Substring(1), mSQ.Project.Name)
    wic = mSQ.Project.Store.Query(wiqlToExecute, params)
  Else
    wic = mSQ.Project.Store.Query(wiqlToExecute)
  End If

  If wic.Count = 0 Then
    MessageBox.Show("The query didn't return any Work Items.", _
      "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
  Else
    Dim wi As WorkItem = wic.Item(0)
    Dim d As New frmAWorkItem(Nothing)
    Dim title As String = _
      String.Format("{0}'s Work Items: {1}", _
      mSQ.Name, wic.Count)

    Using f As New frmListBox(title, wi, wic, "Title", d)
      f.ShowDialog(Me)
    End Using
  End If
End Sub

Imports Microsoft.TeamFoundation.WorkItemTracking.Client
Imports Microsoft.TeamFoundation.WorkItemTracking.Controls

Friend Class frmAWorkItem
  Implements IProcessDoubleClick

  Private IsNewWI As Boolean = False
  Private IsCanceled As Boolean = False
  Private wifCtl As WorkItemFormControl = Nothing

  Private Sub frmAWorkItem_FormClosing( _
    ByVal sender As Object, _
    ByVal e As System.Windows.Forms.FormClosingEventArgs) _
    Handles Me.FormClosing

    If wifCtl.Item.IsDirty AndAlso (Not IsCanceled) Then
      Select Case MessageBox.Show( _
        "You made changes to the work item." & vbCrLf & _
        "Would you like to save your changes?", "Save Changes", _
        MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

        Case Windows.Forms.DialogResult.Yes
          e.Cancel = (Not Me.Save())

        Case Windows.Forms.DialogResult.No
          If wifCtl.Item.IsDirty OrElse _
            (Not wifCtl.Item.IsValid) Then

            wifCtl.Item.Reset()
          End If

        Case Windows.Forms.DialogResult.Cancel
          e.Cancel = True

      End Select
    End If
  End Sub

  Private Sub btnCancel_Click( _
    ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles btnCancel.Click

    If wifCtl.Item.IsDirty OrElse (Not wifCtl.Item.IsValid) Then
      wifCtl.Item.Reset()
    End If

    IsCanceled = True
  End Sub

  Private Sub btnSave_Click( _
    ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles btnSave.Click

    If wifCtl.Item.IsDirty Then
      Me.Save()
      Me.btnSave.Enabled = False
    End If
  End Sub

  Private Function Save() As Boolean
    Dim badFields As ArrayList = wifCtl.Item.Validate()
    If Not wifCtl.Item.IsValid Then
      Using sw As New IO.StringWriter
        sw.WriteLine("The following fields are invalid: ")
        For Each f As Field In badFields
          If Not f.IsValid Then
            sw.WriteLine(f.Name)
          End If
        Next

        MessageBox.Show(sw.ToString(), "Invalid fields", _
          MessageBoxButtons.OK, MessageBoxIcon.Error)

        MsgBox(sw.ToString())
      End Using

      Return False
    End If

    wifCtl.Item.Save()

    If IsNewWI Then
      Me.Text = "Work Item: " & wifCtl.Item.Id
      MessageBox.Show(String.Format( _
        "New {0} saved. It's ID Is {1}", wifCtl.Item.Type.Name, _
        wifCtl.Item.Id), "Save Work Item", _
        MessageBoxButtons.OK, MessageBoxIcon.Information)
    End If

    Return True
  End Function
End Class