--------------------

Ich habe keine besondere Begabung, sondern bin nur leidenschaftlich neugierig.
- Albert Einstein

Public Class myvpb
    Inherits ProgressBar
 
    Public Sub New()
        Me.Height = 100
        Me.Width = 23
    End Sub
 
    Protected Overrides ReadOnly Property CreateParams As _
      System.Windows.Forms.CreateParams
        Get
 
            Dim cp As CreateParams = MyBase.CreateParams
            cp.Style = cp.Style Or &H4
            Return cp
 
        End Get
    End Property
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist