Private Sub Form_Load()
Me.Width = 1
Me.Height = 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
FileCopy module.readINI(App.Path & "\settings.ini", "connect", "pathupdate", "?") & "Экран.exe", App.Path & "\Экран.exe"
MsgBox "Программа успешно обновлена!"
Dim Task As Double
Task = Shell(App.Path & "\Экран.exe", vbNormalFocus)
End
End Sub

Private Sub Form_Load()
Me.Width = 1
Me.Height = 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Call Update
End Sub

Sub Update()
FileCopy module.readINI(App.Path & "\settings.ini", "connect", "pathupdate", "?") & "Ýêðàí.exe", App.Path & "\Ýêðàí.exe"
MsgBox "Ïðîãðàììà óñïåøíî îáíîâëåíà!"
Dim Task As Double
Task = Shell(App.Path & "\Ýêðàí.exe", vbNormalFocus)
End
End Sub