Sub btnLock_Click 'could be renaned to just Lock
GetManager.RunMethod("setLockTaskPackages", Array(GetAdminComponent, Array As String(Application.PackageName)))
GetContext.RunMethod("startLockTask", Null)
WriteLockState(True) 'this line is unncessesary
End Sub
Sub btnUnlock_Click ' Could be renamed unlock'
GetContext.RunMethod("stopLockTask", Null)
WriteLockState(False) ' This line is not necessary
End Sub