how to create a virus in computer

CODE:
   do
X=MsgBox("your computer was hacked",0+16,"virus alert")
loop

#copy this code &past into notepad.vbs file

VIDEOLINK:
      https://youtu.be/7QtwSo1M01s