Firewall Exception ด้วย vb

เพื่อความไม่ยุ่งยากของ code ผมจึงอาศัยฟังชัน Shell เข้ามาช่วยนะครับ
[hide=5][code]Public Function FirewallException(Path As String)