Visual Basic

Dim contextMenu = New ContextMenu()
contextMenu.MenuItems.Add(New MenuItem("Copy", Sub(s, ea) textBox1.Copy()))
contextMenu.MenuItems.Add(New MenuItem("Paste", Sub(s, ea) textBox1.Paste()))
contextMenu.MenuItems.Add(New MenuItem("Undo", Sub(s, ea) textBox1.Undo()))
contextMenu.MenuItems.Add(New MenuItem("Select All", Sub(s, ea) textBox1.SelectAll()))
textBox1.ContextMenu = contextMenu

satc wrote:

but this is not done automatically when I do Combobox.dispose ?

Application.Exit

Dim resizedBitmap As Bitmap = New Bitmap(originalImage, new Size(100, 100));

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

class Program
{
    static void Main(string[] args)
    {
        using (var f = new Form())
        {
            var dgv = new DataGridView() { Dock = DockStyle.Fill };
            dgv.Columns.Add(new DataGridViewTextBoxColumn());
            dgv.CellPainting += dgv_CellPainting;
            for (int i = 0; i < 5; i++)
                dgv.Rows.Add(new[] { Guid.NewGuid().ToString() });
            f.Controls.Add(dgv);
            f.ShowDialog();
        }
    }

    static readonly Size rectSize = new Size(10, 10);

    static void dgv_CellPainting(
        object sender,
        DataGridViewCellPaintingEventArgs e)
    {
        e.Handled = false;

        if (0 == e.ColumnIndex)
        {
            if (-1 == e.RowIndex)
                return; // don't paint the title as if it were data

            e.PaintBackground(
                e.CellBounds,
                DataGridViewElementStates.Selected == e.State);

            e.PaintContent(e.ClipBounds);

            e.Graphics.FillRectangle(
                Brushes.Red,
                new Rectangle(e.CellBounds.Location, rectSize));

            e.Handled = true;
        }
    }
}

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Shared ReadOnly rectSize As New Size(10, 10)

   Private Shared Sub dgv_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs)
       e.Handled = False

       If 0 = e.ColumnIndex Then
           If -1 = e.RowIndex Then
               Return
           End If

           e.PaintBackground(e.CellBounds, DataGridViewElementStates.Selected = e.State)

           e.PaintContent(e.ClipBounds)

           e.Graphics.FillRectangle(Brushes.Red, New Rectangle(e.CellBounds.Location, rectSize))

           e.Handled = True
       End If
   End Sub

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]