Private Declare Function LockWorkStation Lib "user32.dll" () As Long
    Private Declare Function ShutDownDialog Lib "shell32" Alias "#60" (ByVal any As Long) As Long

    Private Sub ShowShutdown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ShutDownDialog(0)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        LockWorkStation()
    End Sub