Private Sub TreeView1_Click() If TreeView1.SelectedItem = "مريض جديد" Then Frame1.Visible = True End Sub