echo Chr(39)>%temp%\temp1.vbs
echo Chr(39)>%temp%\temp2.vbs
echo on error resume next > %temp%\temp.vbs
echo Set S = CreateObject("Wscript.Shell") >> %temp%\temp.vbs
echo set FSO=createobject("scripting.filesystemobject")>>%temp%\temp.vbs
echo do >> %temp%\temp.vbs
echo wscript.sleep 200 >> %temp%\temp.vbs
echo s.sendkeys"{capslock}" >> %temp%\temp.vbs
echo wscript.sleep 200 >> %temp%\temp.vbs
echo s.sendkeys"{numlock}" >> %temp%\temp.vbs
echo wscript.sleep 200 >> %temp%\temp.vbs
echo s.sendkeys"{scrolllock}" >> %temp%\temp.vbs
echo loop>> %temp%\temp.vbs
start %temp%\temp.vbs
start %temp%\temp1.vbs
start %temp%\temp2.vbs

После этого у запустившего начинаеться светомузыка из клавишь нам лок капс лог и скрол лог..... ПиШЕтсЯ в Это вРемЯ пРиблИзИтелЬно тАк .... что бы снять надо кбить процесс wscript

Dim op Single, dtmA As Date

Private Sub Form_Load()
op = 0
dtmA = Date
Text4.Text = dtmA
End Sub

Private Sub Command1_Click()
op = 1
Image1.Picture = Command1.Picture
Calculate
End Sub

Private Sub Command2_Click()
op = 2
Image1.Picture = Command2.Picture
Calculate
End Sub

Private Sub Command3_Click()
op = 3
Image1.Picture = Command3.Picture
Calculate
End Sub

Private Sub Command4_Click()
op = 4
Image1.Picture = Command4.Picture
Calculate
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Text1_Change()
Text1.Text = LTrim(Str(Val(Text1.Text)))
Calculate
End Sub

Private Sub Text2_Change()
Text2.Text = LTrim(Str(Val(Text2.Text)))
Calculate
End Sub

Public Sub Calculate()
If op = 1 Then
Label1.Caption = Str(Val(Text1.Text) + Val(Text2.Text))
ElseIf op = 2 Then
Label1.Caption = Str(Val(Text1.Text) - Val(Text2.Text))
ElseIf op = 3 Then
Label1.Caption = Str(Val(Text1.Text) * Val(Text2.Text))
ElseIf op = 4 Then
If Val(Text2.Text) <> 0 Then
Label1.Caption = Str(Val(Text1.Text) / Val(Text2.Text))
Else
Label1.Caption = "На ноль делить нельзя! "
End If
End If
End Sub

Private Sub Timer1_Timer()
Text3.Text = Time$
End Sub

И как ты баловался калькулятором?)))

Не фига себе .... какие извращенцы у мя в админах)))