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