wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passw?rten
wintoolz.Filmdatenbank - Verwaltungssoftware f?r Filme
wintoolz.CodeGallery - Programm zum speichern von Codeschnipseln

Public Class Form1
    Dim rec As Rectangle
    Private WithEvents TC As New TabControl
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.SetBounds(100, 100, 500, 300)
        TC.SetBounds(10, 10, 400, 200)
        TC.DrawMode = TabDrawMode.OwnerDrawFixed
        For i As Int32 = 0 To 4
            Dim TP As New TabPage
            TP.Text = "Page" & i.ToString.PadRight(8)
            TC.Controls.Add(TP)
        Next
        Me.Controls.Add(TC)
    End Sub
 
    Private Sub Tc_DrawItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawItemEventArgs) Handles TC.DrawItem
        rec = New Rectangle(e.Bounds.Left + e.Bounds.Width - 18, e.Bounds.Top + _
        2, 16, 16)
        e.Graphics.DrawString(TC.TabPages(e.Index).Text, Font, Brushes.Black, 2 _
        + e.Bounds.Left, 4)
        ControlPaint.DrawCaptionButton(e.Graphics, rec, CaptionButton.Close, _
        ButtonState.Normal)
    End Sub
 
    Private Sub Tc_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles TC.MouseDown
        If rec.Contains(e.Location) Then
            TC.TabPages.RemoveAt(TC.SelectedIndex)
        End If
    End Sub
End Class

wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passw?rten
wintoolz.Filmdatenbank - Verwaltungssoftware f?r Filme
wintoolz.CodeGallery - Programm zum speichern von Codeschnipseln

Private Sub Tc_DrawItem(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DrawItemEventArgs) Handles TC.DrawItem
        rec = New Rectangle(e.Bounds.Left + e.Bounds.Width - 18, e.Bounds.Top + _
        2, 16, 16)
        e.Graphics.DrawString(TC.TabPages(e.Index).Text, Font, Brushes.Black, 2 _
        + e.Bounds.Left, 4)
        If e.Index > 0 Then
            ControlPaint.DrawCaptionButton(e.Graphics, rec, _
              CaptionButton.Close, ButtonState.Normal)
        End If
End Sub
 
Private Sub Tc_MouseDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles TC.MouseDown
        If rec.Contains(e.Location) AndAlso TC.SelectedIndex > 0 Then
            TC.TabPages.RemoveAt(TC.SelectedIndex)
        End If
End Sub

wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passw?rten
wintoolz.Filmdatenbank - Verwaltungssoftware f?r Filme
wintoolz.CodeGallery - Programm zum speichern von Codeschnipseln

Private Sub Tc_DrawItem(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DrawItemEventArgs) Handles TC.DrawItem
        e.Graphics.FillRectangle(Brushes.Aqua, e.Bounds)
        rec = New Rectangle(e.Bounds.Left + e.Bounds.Width - 16, e.Bounds.Top + _
          3, 14, 14)
        e.Graphics.DrawString(TC.TabPages(e.Index).Text, Font, Brushes.Black, 2 _
        + e.Bounds.Left, 4)
        If e.Index > 0 Then e.Graphics.DrawImage(SystemIcons.Error.ToBitmap, rec)
End Sub