一句话：

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Application.SetSuspendState(PowerState.Hibernate, False, False)

呵呵，不用声明，简单．