Private Sub Form_Load()
 
Dim KmStandNeu 
Dim KmStandAktuell 
Dim ProzentWert As Byte
   ProgressBar3.Min = 0
   ProgressBar3.Max = 100
   KmStandNeu = frmGrundeinstellungen.Text1(1).Text
   KmStandAktuell = lblGesamtKm.Caption
   ProzentWert = KmStandNeu - KmStandAktuell
     ProgressBar3.Value = ProzentWert
     Label3.Caption = ProzentWert & "%"
 
End Sub