Public Class Form1
   Private l As New Label
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      l.BorderStyle = BorderStyle.Fixed3D
      l.Text = ""
      Me.Controls.Add(l)
   End Sub
 
   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.PaintEventArgs) Handles Me.Paint
      l.Location = New Point(0, Me.Height - 100)
      l.Size = New Size(Me.Width, 3)
      l.Invalidate()
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control