Format(0#, "#.#")

Private Sub Open_Gates(ByVal VB As Single, ByVal Raznica As Integer)
 Dim RememberVSB As Integer, intVSB As Integer
 Dim i As Integer
  For i = 1 To 5
   intVSB = A1(i) * VB ^ 2 + A2(i) * VB + A3(i)
   RememberVSB = RememberVSB + intVSB
   Debug.Print B(i)
     If RememberVSB > Raznica + Con1 Then Exit For
  Next
End Sub

Debug.Print B(i)

For i = 1 To 72
  intVSB = A1(i) * VB ^ 2 + A2(i) * VB - A3(i)
  RememberVSB = RememberVSB + intVSB
   If Raznica + Con1 < RememberVSB Then
    Raznica = RememberVSB
    Exit For
   Else
    Debug.Print i & ")"; "Открываем"; B(i)
   End If
Next

For j = 1 To 600
 For k = 1 To 100000
 Next k
  Gate(B(i)).Top = Gate(B(i)).Top + 1
Next j

Private Sub Timer1_Timer()
 For j = 1 To 600
  If j = 600 Then Timer1.Enabled = False
    For k = 1 To 100000
    Next k
     Gate(B(i)).Top = Gate(B(i)).Top + 1
 Next j
End Sub

For i = 1 To 72
 intVSB = A1(i) * VB ^ 2 + A2(i) * VB - A3(i)
 RememberVSB = RememberVSB + intVSB
  If Raznica < RememberVSB Then
    Raznica = RememberVSB
    Exit For
  Else
    Timer1.Enabled = True
    End If
Next i
End Sub

Private Sub Timer1_Timer()
 Gate(B(i)).Top = Gate(B(i)).Top + 1
End Sub