Code:
Private Sub cmdStart_Click()
    If sock1.Close = False Then
    sock1.Close
    Port = txtport
    sock1.Bind Port
    sock1.Listen
End Sub

Private Sub cmdStop_Click()
    If sock1.Close = False Then
    sock1.Close
End Sub

Private Sub Form_Load()
    server.Show
End Sub

All the bold ones have problems..
I dont know why.. i am using winsock

please help me fast.