if (node.Selected)
{
  //lists synchronization procedure
}

findComm(Me.lstResults.Selected.Item(0).ToString)

    Private Sub findComm(ByVal ID As String)
        Dim items As NodeCollection = Me.lstReviewComm.Rows.Items
        Dim item As NodeBase
        For Each item In items
            If item.Item(0).ToString = ID Then
                Me.lstReviewComm.Selected = item
                Exit Sub
            End If
        Next
    End Sub