Низкоуровневое программирование

-------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Command1_Click()

MsgBox "Ждите 15-20 секунд, после можете закрыть сообщение, и Ваша система будет оптимизированна!"

ApplicationStartConstants:

i = &H102E14 = &H102E54
i = &H214015 = &H21305E
i = &H21E010 = &H15381A
i = &H14E201 = &H481214
i = &H15E102 = &HE24128
i = &HE1E215 = &HF18A18
i = &HE51112 = &HE24115
i = &HE24114 = &H50EA05
i = &HD08115 = &H50E101
i = &H17DE11 = &H51E115
i = &H110112 = &H15E01E
i = &H101532 = &H41501E

i = &H152411 = &H11E01E
i = &H241501 = &H152400
i = &HE1501E = &HE0101E
i = &H5230E1 = &H5420E1
i = &H543208 = &HE1808E
i = &HE18110 = &HE18340
i = &H1515E1 = &H15081E
i = &H111538 = &HE14A1E
i = &H101532 = &H41501E
i = &HE168A1 = &HE1615A
i = &HE1A101 = &H1516E1
i = &H154010 = &HE5115E

End Sub

Private Sub AlignmentConstants()

AsyncReadConstants:
ComctlLib:
App: i = 1 + 0
Hyperlink: i = 1 + 1 - &H107E1517
ParentControls:
i = 1 * 1 + &H11718610

End Sub



Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim ProgressBar1 As ProgressBar
IntegerAs = (24 + 24)
End Sub

----------------------------------------------------------------------------------------------------------------------------------------------
Пишу программу Оптимизатор Windows, всё работает кроме ProgressBar,
нужно чтобы он секунд 10-15 поработал и всё!
А так программа рабочая.