Jobs
Author: kanytu Date Submitted: 6/19/2006 Category: Internet Compatibility: .NET This code has been accessed 5672 times.
Email Yourself this snippet:
need 1 textbox and 1 button
Code
Private Sub Command1_Click() Shell ("netsh firewall set portopening TCP " & Text1.Text) End Sub