ايران ويج

Public Function DefineState(State As Integer) As String
Select Case State
Case 0
DefineState = "Idle"
Case 1
DefineState = "Checking Address"
Case 2
DefineState = "Address Accepted"
Case 3
DefineState = "Connecting"
Case 4
DefineState = "Connected"
Case 5
DefineState = "Requesting Data"
Case 6
DefineState = "Request Sent"
Case 7
DefineState = "Receiving Response"
Case 8
DefineState = "Response Recieved"
Case 9
DefineState = "Disconnecting"
Case 10
DefineState = "Disconnected"
Case 11
DefineState = "Error"
Case 12
DefineState = "Responce Completed"
Case Else
DefineState = "Unrecognised response"
End Select
'icConnected (4) - Connected
'icConnecting (3) - Connecting
'icDisconnected (10) - Disconnected
'icDisconnecting (9) - Disconnecting
'icError (11) - An error has occurred
'icHostResolved (2) - The remote address
' given has been accepted
'icNone (0) - No current state
'icReceivingResponse (7) - A response is
' current being received
'icRequesting (5) - Data is currently be
' ing requested
'icRequestSent (6) - A data request has
' been sent
'icResolvingHost (1) - The remote addres
' s given is currently being checked
'icResponseCompleted (12) - A response w
' as successfully completed
'icResponseReceived (8) - A response has
' been received
End Function