Const ICON_PFAD = "C:\Programme\Microsoft Visual" & _
  "Studio\Common\Graphics\Icons\Misc\"
 
Private Sub cmdUmrechnen_Click()
Dim intBmi As Integer
Dim intGewicht As Integer
intGewicht = Val(txtGrösse.Text) - 100
lblIdealgewicht.Caption = "Zwischen " & intGewicht - intGewicht \ 10 & " und " _
  & intGewicht + intGewicht \ 10 & " KG"
intBmi = txtGewicht.Text / (txtGrösse.Text / 100) ^ 2
lblBmi.Caption = intBmi
If intBmi > 18 Then
imgBewertung.Picture = LoadPicture(ICON_PFAD & "Face01.ico")
ElseIf intBmi > 18 And intBmi < 27 Then
imgBewertung.Picture = LoadPicture(ICON_PFAD & "Face02.ico")
Else
imgBewertung.Picture = LoadPicture(ICON_PFAD & "Face03.ico")
End If
 
End Sub