программная регулировка подсветки на ipaq

[FlashBoy]

vb.net
Как это делается?
Может компонент какойнть есть и т.п ?
Искал, не нашел)))

[Гость123457823]

А этот кусок кода не подойдет? что это за язык?

I am using the code below for changing backlight brightness on iPaqs and works OK.

void SetBacklight(int value, BOOL bAcBright) //Set the Backlight for Battery
mode.bACBright set modifies also the AcBacklight
{
HKEY hKey = NULL;
DWORD dwDisposition = 0;
if (RegCreateKeyEx(HKEY_CURRENT_USER, _T("ControlPanel\\Backlight"),0,
NULL, 0, KEY_ALL_ACCESS, NULL, &hKey, &dwDisposition) == ERROR_SUCCESS)
{
if (bAcBright)
RegSetValueEx(hKey, _T("ACBrightNess"), 0, REG_DWORD, (PBYTE) &value,
sizeof(REG_DWORD)); //AC Mode
RegSetValueEx(hKey, _T("BrightNess"), 0, REG_DWORD, (PBYTE)&value,
sizeof(REG_DWORD)); //DC Mode
}
RegCloseKey(hKey);
HANDLE hBackLightEvent = CreateEvent( NULL, FALSE, TRUE,
TEXT("BackLightChangeEvent"));
if (hBackLightEvent)
{
SetEvent(hBackLightEvent);
CloseHandle(hBackLightEvent);
}