Public Class Form1
Dim cmdProcess As Process = New Process()
Dim fileArgs As String
Dim path As String = "C:\Windows\System32\"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
fileArgs = "powrprof.dll,SetSuspendState"
cmdProcess.StartInfo.Arguments = fileArgs
cmdProcess.StartInfo.WorkingDirectory = path
cmdProcess.StartInfo.FileName = "RunDll32.exe"
cmdProcess.Start()
cmdProcess.WaitForExit()
Me.Show()
End Sub
End Class
