последний цикл Do Loop постоянно зависает. Вроде бы всё перепробовал, но тщётно.
Public Class Form1
Dim i As Integer
Dim real As Integer
Dim tempmax As Integer
Dim tempmin As Integer
Dim voimsus1 As Integer
Dim voimsus2 As Integer
Dim voimsus3 As Integer
Dim kokkuvoimsus As Integer
Dim p As Integer
Dim termo As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



For m = 0 To 50 Step 5
ComboBox1.Items.Add(Format(m, "00"))
Next

For m = -5 To -50 Step -5
ComboBox2.Items.Add(Format(m, "00"))
Next

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

termo = 1

If CheckBox3.Checked = True Then
Do Until real = tempmax
Label2.Top = Label2.Top - termo
Label1.Text += termo
Exit Do
CheckBox3.Checked = False

Loop

ElseIf CheckBox3.Checked = False Then

Do Until real = tempmin

Label2.Top = Label2.Top + termo
Label1.Text -= termo
Exit Do

CheckBox3.Checked = True

Loop
End If
If Label1.Text = tempmax Then
CheckBox3.Checked = False

End If
If Label1.Text = tempmin Then

CheckBox3.Checked = True
End If

End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



tempmin = CInt(ComboBox2.Text)


real = CInt(Label1.Text)

tempmax = CInt(ComboBox1.Text)

Timer1.Start()

Do

If CheckBox3.Checked = True Then
voimsus1 = 1000
ElseIf CheckBox3.Checked = False Then
voimsus1 = 0
End If
If CheckBox1.Checked = True Then
voimsus2 = 60
ElseIf CheckBox1.Checked = False Then
voimsus2 = 0
End If
If CheckBox2.Checked = True Then
voimsus3 = 15
ElseIf CheckBox2.Checked = False Then
voimsus3 = 0
End If
kokkuvoimsus = voimsus1 + voimsus2 + voimsus3
Label6.Text = kokkuvoimsus

Loop Until kokkuvoimsus = 1075


End Sub

только что разоюрался вставив My.Application.DoEvents() в do Loop=)