Option ExplicitConst PortsChecked = 200Private Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 1000End SubPrivate Sub Command2_Click()Timer1.Interval = 0Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Dim X As IntegerList1.ClearFor X = 1 To PortsCheckedDoEventsText1.Text = XWinSock1.LocalPort = XOn Error Resume NextWinSock1.Listen' If we get an error, the port is busy.If Err.Number = 10048 ThenList1.AddItem X' Log Active port # to list box.Err.Number = 0End IfWinSock1.CloseNext XEnd SubPrivate Sub Form_Load()Label1.Caption = "Checking Port #"Label2.Caption = "Ports In Use"Command1.Caption = "Start"Command2.Caption = "End"Text1.Locked = TrueEnd Sub