HOW TO MAKE WINDOWS ERROR

Hi Guys today i am going to show how to make windows error.Usually we have seen that many errors come with the programs these errors are sometime coded by the programmers which we normally don't know about it 

So,today i am going to show you how you can make your very windows error box .......

 Here's what you need to copy and paste :

X = MsgBox("Message Body", ,"Message Header")

FIRST WHAT YOU NEED IS TO OPEN THE NOTEPAD AND COPY/PASTE THE ABOVE CODE IN IT AND SAVE IT WITH ANY NAME YOU WANT TO AND KEEP THE FILE EXTENSION WITH ( .VBS )

THEN OPEN THE FILE AND YOU CAN HAVE YOUR VERY OWN WINDOWS ERROR BOX

Download Kaspersky Internet Security 2012 + 60 Days Activation Key

Kaspersky Internet Security KIS 2012 has been released by Kaspersky Lab. Kaspersky Antivirus new 2012 provides real-time protection from lates malware and viruses. Supported by intelligent scaning and regular update that will proactively secure your computer. Kaspersky internet security 2012 new promising protection from viruses, trojan, spam, hacker,etc digital security features base technology with advanced antivirus protection. This ensures your online security as you work, bank, shop and play online.

Kaspersky Internet Security 2012 Key Features:

• Protects from viruses, Trojans and worms
• Blocks spyware and adware
• Scans files in real time (on access) and on demand
• Scans email messages (regardless of email client)
• Scans Internet traffic (regardless of browser)
• Protects instant messengers (ICQ, MSN)
• Provides proactive protection from unknown threats
• Scans Java and Visual Basic scripts

The official Kaspersky website usually provides free trial for one month only, but there is a promotion offer to get a free copy of Kaspersky Internet Security 2012 that protect you for 2 months (60 days). Visit here :                         

DOWNLOAD FREE KASPERSKY ANTI-VIRUS TRIAL VERSION 
Kaspersky Internet Security KIS 2012

Beep Function

This shows you how to set the frequency & duration of a beep sound. Put this in your *.bas file1:53 AM 8/19/2007:

Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Put something like this in a button:

Dim ret As Long
ret = Beep(1500, 300)

Or, if you want to do something a little more fun, try this:

Dim ret As Long, i As Integer

For i = 0 To 4000 Step 100
    ret = Beep(i, 100)
Next