Einfacher Code für eine Individuelle ProcessBar. Die Größe, Farbe und weiteren Option sind frei definierbar und können einfach auch mit ein wenig Geschick auf die eigenen Bedürfnisse erweitert werden..

Toolbox:
Form1, Label1, Label2,Label3, Textbox1, Button1

Quellcode:

Public Class Form1

Property [ProcValue] As Decimal
Property [ProcInterval] As Decimal
Property [ProcMaximum] As Integer
Property [ProcColorBar] As Color

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

ProcMaximum = Label2.Width
ProcInterval = Label2.Width / 100
Label1.Text = "Value"
Label2.Text = ""
Label2.Width = 0

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

ProcValue = Textbox1.Text
Label2.Width = ProcValue * ProcInterval

' Status wird ohne Kommastellen in Label3 angezeigt
Dim P As Single = (ProcValue / ProcMaximum) * ProcInterval
Label3.Text() = FormatPercent(P, 0)

End Sub

Private Sub Textbox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Textbox1.KeyPress

' Bei einer Eingabe in die Textbox werden nur Nummerische, Backspace und Space zugelassen
Select Case Asc(e.KeyChar)

Case 48 To 57, 8 ' Zahlen, Backspace und Space zulassen
Case 13
Button1.PerformClick() ' Klick wird gesendet

Case Else
' alle anderen Eingaben unterdrücken
e.Handled = True
End Select

End Sub

End Class