If Not(startlabel.Left > startlabelend) Then
startlabel.Left = startlabel.Left + turnright (<- e.g. 1.2)
End If
If Not(startlabel.Top > startlabeltopend) Then
startlabel.Top = startlabel.Top + turndown
End If
If Not(startlabel.TextSize < endTextSize) Then
startlabel.TextSize = startlabel.TextSize - tSminus
End If
If Not(startlabel.height < endheight) Then
startlabel.height = startlabel.height - heightminus
End If
If Not(startlabel.width < endwidth) Then
startlabel.width = startlabel.width - widthminus
End If
'And then checking if everything is correct and at his place and stopping the timer