Private Sub TabPageDreieck_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles TabPageDreieck.Paint
        If j = 0 Then
            Dim g As Graphics = e.Graphics
            Dim mypen As New Pen(Color.Blue, 2)
            Dim PenHalfCircle As New Pen(Brushes.Blue, 2)
 
            With g
                ' Anti Aliasing
                .SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias
 
                ' Dreieck zeichnen
                .DrawLine(mypen, 460, 170, 200, 330)
                .DrawLine(mypen, 200, 330, 520, 350)
                .DrawLine(mypen, 520, 350, 460, 170)
            End With
        Else
            Invalidate()
        End If

    Private Sub cmdlöschen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdlöschen.Click
        Me.TabPageDreieck_Paint(Me.TabControl1, New PaintEventArgs())
    End Sub

fg viperbone