Macros STYLO TPAO

Bueno , vengo a aportar esto , Es corto Smile Son Macros Configurables , style TPAO .

Buscan :

Código:
Call SendData("/MEDITAR")


Abajo :

Código:
Case vbKey1:
               If frmMain.SendTxt.Visible = True Then Exit Sub
               If Macros.Text1.Text = "" Then
               AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
               Else
               Call SendData("/" & Macros.Text1.Text)
               End If
       Case vbKey2:
               If frmMain.SendTxt.Visible = True Then Exit Sub
               If Macros.Text2.Text = "" Then
               AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
               ElseIf frmMain.SendTxt.Visible = True Then
               Else
               Call SendData("/" & Macros.Text2.Text)
               End If
       Case vbKey3:
               If frmMain.SendTxt.Visible = True Then Exit Sub
               If Macros.Text3.Text = "" Then
               AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
               Else
               Call SendData("/" & Macros.Text3.Text)
               End If
       Case vbKey4:
               If frmMain.SendTxt.Visible = True Then Exit Sub
               If Macros.Text4.Text = "" Then
               AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
               Else
               Call SendData("/" & Macros.Text4.Text)
               End If
       Case vbKey5:
               If frmMain.SendTxt.Visible = True Then Exit Sub
               If Macros.Text5.Text = "" Then
               AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
               Else
               Call SendData("/" & Macros.Text5.Text)
               End If
       Case vbKey6:
               If frmMain.SendTxt.Visible = True Then Exit Sub
               If Macros.Text6.Text = "" Then
               AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
               Else
               Call SendData("/" & Macros.Text6.Text)
               End If
       Case vbKey7:
               If frmMain.SendTxt.Visible = True Then Exit Sub
               If Macros.Text7.Text = "" Then
               AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
               Else
               Call SendData("/" & Macros.Text7.Text)
               End If
       Case vbKey8:
               If frmMain.SendTxt.Visible = True Then Exit Sub
               If Macros.Text8.Text = "" Then
               AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
               Else
               Call SendData("/" & Macros.Text8.Text)
               End If
       Case vbKey9:
               If frmMain.SendTxt.Visible = True Then Exit Sub
               If Macros.Text9.Text = "" Then
               AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
               Else
               Call SendData("/" & Macros.Text9.Text)
               End If
       Case vbKey0:
               If frmMain.SendTxt.Visible = True Then Exit Sub
               If Macros.Text10.Text = "" Then
               AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
               Else
               Call SendData("/" & Macros.Text10.Text)
               End If


Ahora , descargan esto : http://www.mediafire.com/?s3ya4dl9450ikir . y lo agregan al cliente , y listo Wink Funcional !

FUENTE : GS-ZONE
dISFRUTENNNN XD