mmm... Debes haber visto muy poco xDD

como que dejan de funcionar cuando pierden foco ?? :S

che papa para hacer eso usa estas api's:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer



por ejemplo


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim ti As String
Dim A As String
Dim B As String
Dim C As String
Dim D As String

Private Sub Form_Load()
Combo1.AddItem "Insultos"
Combo1.AddItem "Amor"
Combo1.AddItem "Boludeces"
End Sub

Private Sub Timer1_Timer()
If Combo1.Text = "Insultos" Then
    A = "Pelotuo"
    B = "Fuck you"
    C = "Boludaso"
    D = "Anda a cagar!!!"
ElseIf Combo1.Text = "Amor" Then
    A = "no se como expresarte lo mucho que te quiero"
    B = "me gustas tanto"
    C = "sos la unica chica que conoci de verdad"
    D = "te quiero"
ElseIf Combo1.Text = "Boludeces" Then
    A = "No se que decir. ¿Vos sabes?"
    B = "Pata sucia fue a la tienda a comprar un par de medias pero como no habia pata sucia se reía: JA, JE, JI, JO, JU, para sucia eres tú"
    C = "La c****** de la vieja p*****"
    D = "ptttttttttttttttt (pedo)"
End If
palabra = Int((Rnd * 4) + 1)
If palabra = 1 Then
        ti = A
ElseIf palabra = 2 Then
        ti = B
ElseIf palabra = 3 Then
        ti = C
ElseIf palabra = 4 Then
        ti = D
End If
  Dim AddKey
    KeyResult = GetAsyncKeyState(13)
    If KeyResult = -32767 Then
         'For i = 0 To 100
         'SendKeys Chr(8)
         'Next i
         SendKeys ti
         SendKeys "{enter}"
    End If
End Sub



para que joda cuando apretas el enter jajajaj!!!! esta bueno para el msn jajaj

chau