Оптимизация

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: i = 0.2
ComctlLib:
App: i = 1 + 0
Hyperlink: i = 1 + 1 - &H107E1517
ParentControls:
i = 1 * 1 + &H11718610

End Sub


Private Sub ComctlLib()
EventParameters = 21 * 5 - 1
EventParameters = 0.1

End Sub

Private Sub VbAppWinStyle()
i = 1 - 1

End Sub

Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim ProgressBar1 As ProgressBar
increment = increment + 10
ProgressBar1 = 0
ProgressBar1 = 200
ProgressBar1.Value = 130
ProgressBar1.Value = increment
End Sub
--------------------------------------------------------
Подскажите пожалуйста, моя программа что-нибудь делает или нет вообще?