Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        d_LoadPerson(TreeView1.SelectedNode.Text.ToString)
    End Sub
 
    Private Sub d_LoadPerson(ByVal sPersonName As String)
        If sPersonName = "Testperson" Then
            bTitel.Text = sPersonName
            pbPersonen.Image = New System.Drawing.Bitmap( _
              "C:\....Personenbilder\Person1.jpg") 'Bild wird von der 
            ' Festplatte eingelesen und angezeigt, sollte jedoch aus dem 
            ' Internet laden
 
            rtbDescprit.Text = "Beschreibungstext"
        Else
            MsgBox(sPersonName)
        End If
 
    End Sub