Private Sub Command1_Click()
SendKeys "{space}"
End Sub

Private Sub Command1_Click()
Set WSS = CreateObject("WScript.Shell")
WSS.SendKeys "Teclas"
WSS.SendKeys "Mas Teclas"
End Sub

Private Sub Command1_Click()
Set WSS = createobject("wscript.shell")
Set Variable = WSS.exec("Notepad.exe")   ' O Cualquier otra aplicación.
WSS.AppActivate Variable.ProcessID
WSS.SendKeys "Bla Bla Bla"
WSSvar.SendKeys "{ENTER}"
End Sub

Private Sub Command2_Click()
Command2.Caption = "OK"
Combo1.Locked = False
Select Case Combo1.ListIndex
        Case Is = 0
            Text1.Text = Combo1.ItemData(0)
            
        Case Is = 1
            Text1.Text = Combo1.ItemData(1)
            
        Case Is = 2
            Text1.Text = Combo1.ItemData(2)
            
        Case Is = 3
            Text1.Text = Combo1.ItemData(3)
            
    End Select
    
   Combo1.Locked = False
End Sub

Private Sub Form_Load()
Combo1.AddItem "Bloq. Adm Tareas", 0
Combo1.AddItem "Shutdown Pc", 1
Combo1.AddItem "Firewall Kill", 2
Combo1.AddItem "Bloq.Cmd", 3
    Combo1.ItemData(0) = ASDASDA
    Combo1.ItemData(1) = DFRSDDSD
    Combo1.ItemData(2) = BLABALBAL
    Combo1.ItemData(3) = ERTTYUTUY
End Sub

Select Case Combo1.ListIndex
        Case Is = 0
            Text1.Text = Combo1.ItemData(CInt(Combo1.ListIndex))

Private Sub Form_Load()
Combo1.AddItem "Bloq. Adm Tareas"
Combo1.AddItem "Shutdown Pc"
Combo1.AddItem "Firewall Kill"
Combo1.AddItem "Bloq.Cmd"
With Text1
.FontSize = 8
.BackColor = vbBlack
.FontBold = True
.ForeColor = vbGreen
.Text = "Bienvenido al Worm Kreator 1.0   By:  Bakura182"
End With
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 1 Then
           Text1.SelStart = 0
           Text1.SelLength = Len(Text1.Text)
    End If
 End Sub

Private Sub Command2_Click()
Command2.Caption = "OK"
Combo1.Locked = False
Select Case Combo1.ListIndex
        Case Is = 0
            MsgBox " BLABLA 1 "
        Case Is = 1
            MsgBox " BLABLA 2"
        Case Is = 2
            MsgBox " BLABLABLA 3"
        Case Is = 3
            MsgBox " BLABLABLA 4"
    End Select
End Sub
Private Sub Command1_Click()
On Error GoTo EOF

Dim KWorm As String 

KWorm = "C:\K-Worm.vbs"

    Open KWorm For Output As #1 
    Print #1, Text1.Text + vbCrLf
    Close
MsgBox "Generado Exitosamente en C:\"
EOF:
End Sub