Option Explicit
Dim intPort As Integer
Private Sub Command1_Click()
    Dim frmNew As frmMain
 
    Set frmNew = New frmMain
    frmNew.Show
    intPort = intPort + 1
End Sub
 
Private Sub Form_Load()
    Me.Winsock1.LocalPort = intPort
    Me.Winsock1.Listen
    Me.Label1.Caption = Me.Winsock1.LocalPort
End Sub