Shutdown PC VB6 Code

Code:

Public Function funshutdownmenu(bi As Integer)
    Select Case bi
        Case 0
            Call Shell("shutdown -s -t 3")
        Case 1
            Call Shell("shutdown -r")
        Case 2
            Call Shell("shutdown -l")
        Case 3
            Call Shell("shutdown -h")
    End Select
End Function