Private Sub BildAnzeigeNeu_Paint(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.PaintEventArgs) Handles BildAnzeigeNeu.Paint
        ' Fadenkreuz zeichnen
        Dim g As Graphics = e.Graphics
 
        Dim Ypoints As Point() = {New Point(0, Val(YMouse.Text)), New Point( _
          Me.BildAnzeigeNeu.Width, Val(Me.YMouse.Text))}
        g.DrawLines(Pens.Black, Ypoints)
 
        Dim Xpoints As Point() = {New Point(Val(XMouse.Text), 0), New Point(Val( _
          Me.XMouse.Text), Me.BildAnzeigeNeu.Height)}
        g.DrawLines(Pens.Black, Xpoints)
 
        If BildAnzeigeNeu.Image IsNot Nothing Then
            On Error Resume Next
            Dim myBitmap As New Bitmap(BildAnzeigeNeu.Image)
 
            ' Die Schiene zeichnen
            'g.DrawRectangle(Pens.Black, New Rectangle(BildAnzeigeNeu.Left, 
            ' BildAnzeigeNeu.Height - 3, BildAnzeigeNeu.Width, 3))
            Dim points As Point() = {New Point(BildAnzeigeNeu.Left, _
              BildAnzeigeNeu.Height - 5), New Point(BildAnzeigeNeu.Width, _
              BildAnzeigeNeu.Height - 5)}
            Dim myPen As New Pen(Color.Black, 8)
            myPen.DashStyle = DashStyle.Solid
            g.DrawLines(myPen, points)
 
        End If
    End Sub