WebServerTest

Private Sub Command1_Click()
WinSer.LocalPort = 80
WinSer.Listen
Command1.Enabled = False
End Sub

Private Sub WinSer_ConnectionRequest(ByVal requestID As Long)
WinSer.Close
WinSer.Accept requestID
End Sub

Private Sub WinSer_DataArrival(ByVal bytesTotal As Long)
Dim DataSend As String
DataSend = "Wow My fist Webserver Test"
DataSend = DataSend & vbNewLine & Now
WinSer.SendData DataSend
End Sub

Private Sub WinSer_SendComplete()
WinSer.Close
End Sub