用VB.NET 2005编写定时关机程序(3)

Private Declare Function ShellExecute Lib "shell32.dll" 
  Alias "ShellExecuteA"(ByVal hwngnd As Integer, 
  ByVal lpOperation As String, ByVal lpFile As String, 
  ByVal lpParameters As String, ByVal lpDirectory As String, 
  ByVal nShowCmd As Integer) As Integer

Private Sub Label3_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Label3.Click
ShellExecute(0, "open", "http://dev.yesky.com ", CStr(0), CStr(0), 1)
End Sub
End Class