Moj program (Shutdown/Restart/Log Off & Error Handler & ...)

Code:

Private MySubName()
    On Error GoTo Proc_Error
    
Proc_Exit:
    On Error Resume Next
    ' clean up code goes here
    Exit Sub ' or Exit Function
    
Proc_Error:
    MsgBox Err.Number & " - " & Err.Description
    Resume Proc_Exit
End Sub

Code:

Private MySubName()
    On Error GoTo Proc_Error
    
    ' ovde ide kod procedure/funkcije

Proc_Exit:
    On Error Resume Next
    'ovde setujes objekte na nothing ako ih ima
    Exit Sub ' or Exit Function
    
Proc_Error:
    MsgBox Err.Number & " - " & Err.Description
    Resume Proc_Exit
End Sub

Code:

    LogOffNT True
    RebootNT True
    ShutDownNT True

Code:
 LogOffNT True
    RebootNT True
    ShutDownNT True

Code:

Private Const SW_SHOWNORMAL = 1
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
     ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
         
         
Private Sub Command1_Click()
    ShellExecute Me.hWnd, "open", "mailto:[email protected]", vbNull, vbNull, SW_SHOWNORMAL
End Sub