Sub progress(value As Int)
If value < 25 Then
ProgressBar1.style="-fx-box-border: black; -fx-accent: green;"
else If value > 25 And value < 50 Then
ProgressBar1.style="-fx-box-border: black; -fx-accent: yellow;"
else if value > 50 And value < 75 Then
ProgressBar1.style="-fx-box-border: black; -fx-accent: orange;"
Else
ProgressBar1.style="-fx-box-border: black; -fx-accent: red;"
End If
ProgressBar1.Progress = value/100
End Sub