dim valA as Double = CDbl(LabelA.Caption)
dim valB as Double = CDbl(LabelB.Caption)
ValA = ValA / 2
If ValA = ValB then
' la moitié de A = B (A = 16 et B = 8)
else
If valA > ValB then
' la moitié de A > B (A = 19 et B = 8)
Else
' la moité de A < B (A = 12 et B = 8)
End If
End if
dim valA as Double = CDbl(LabelA.Caption)
dim valB as Double = CDbl(LabelB.Caption)
dim valA as Double
valA = CDbl(LabelA.Caption)
dim valB as Double
valB = CDbl(LabelB.Caption)