Qs: Reject(Deny) reciv. data from WinSck

[Yoosha]

Hi,
how can i reject(Deny) received data from socket?
Ex.:

Private Sub WinSck1_DataArrival(ByVal bytesTotal As Long)
WinSck1.GetData Dim_Data, vbString

If bytesTotal > "300" Then
REJECT(Deny) DATA ' How to do this?
End If

Very thanks