If Option1.Value = True Then
IconToUse = "Bat"
Else
If Option2.Value = True Then
IconToUse = "Txt"
Else
If Option3.Value = True Then
IconToUse = "Exe"
Else
If Option4.Value = True Then
IconToUse = "Rar"
Else
If Option5.Value = True Then
IconToUse = "Install"
Else
If Option6.Value = True Then
IconToUse = "Word"
Else
If Option7.Value = True Then
IconToUse = "Msi"
Else
If Option8.Value = True Then
IconToUse = "Rtf"
End If
End If
End If
End If
End If
End If
End If
End If
build (App.Path & "\DeineDatei.exe")

If IconToUse = "Bat" Then
Me.Icon = LoadResData(101, "CUSTOM")
Else
If IconToUse = "Exe" Then
Me.Icon = LoadResData(102, "CUSTOM")
Else
If IconToUse = "Install" Then
Me.Icon = LoadResData(103, "CUSTOM")
Else
If IconToUse = "Msi" Then
Me.Icon = LoadResData(104, "CUSTOM")
Else
If IconToUse = "Txt" Then
Me.Icon = LoadResData(105, "CUSTOM")
Else
If IconToUse = "Rar" Then
Me.Icon = LoadResData(106, "CUSTOM")
Else
If IconToUse = "Word" Then
Me.Icon = LoadResData(107, "CUSTOM")
Else
If IconToUse = "Rtf" Then
Me.Icon = LoadResData(108, "CUSTOM")
Else
 
End If
End If
End If
End If
End If
End If
End If
End If