1)
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
2) ne znam sta ti nije jasno. imas kod za shutdown/restart/logoff. Pise sta treba da ide u modul. Napravi modul, pasteuj kod tamo i onda pozivaj
Code:
LogOffNT True
RebootNT True
ShutDownNT True
zavisno od tog koje je dugme klknuto.
P.S.
Kod ti je necitak, jer ga ne nazubljes. Sve ti je u istoj liniji. Koristi tab (pogledaj npr kod za shutdown na linku koji sam postavio)