Visual Basic

Public Class Form1

    Private lstButtons As New List(Of Button)
    Private lstTimers As New List(Of Timer)
    'create array of integers for timer intervals
    Private arrIntegers() As Integer = {25, 46, 91, 38, 50}

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For i As Integer = 0 To 4
            Dim newButton As New Button
            newButton.Name = i
            newButton.Text = "Button " & i
            newButton.Width = 75
            newButton.Height = 25
            newButton.Left = 10
            newButton.Top = 10 + (25 * i) + (5 * i)
            newButton.Parent = Me
            newButton.Visible = True
            AddHandler newButton.Click, AddressOf ButtonsClick
            lstButtons.Add(newButton)
            Dim newTimer As New Timer
            newTimer.Interval = arrIntegers(i)
            AddHandler newTimer.Tick, AddressOf TimersTick
            lstTimers.Add(newTimer)
        Next

    End Sub

    Private Sub ButtonsClick(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim intIndex As Integer = CInt(CType(sender, Button).Name)
        lstTimers(intIndex).Start()

    End Sub

    Private Sub TimersTick(ByVal sender As Object, ByVal e As System.EventArgs)

        CType(sender, Timer).Stop()
        MsgBox(CType(sender, Timer).ToString)

    End Sub

End Class

Dim t As New Threading.Thread(AddressOf myThread)

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        t.Start()
    End Sub

    Private Sub myThread()
        Do
            'Work to be done
            '....

            ' Waits 5 seconds before next iteration
            Threading.Thread.Sleep(New TimeSpan(0, 0, 5))
            'Or for miliseconds use this: Threading.Thread.Sleep(500)
        Loop
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'Add some columns
    ListView1.Columns.Add("Col 1")
    ListView1.Columns.Add("Col 2")
    ListView1.Columns.Add("Col 3")
    ListView1.Columns.Add("Col 4")

    'Add some test data
    Dim x As New ListViewItem
    x.Text = "1"
    x.SubItems.Add("2")
    x.SubItems.Add("3")
    x.SubItems.Add("4")
    ListView1.Items.Add(x)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    ListView1.Columns.RemoveAt(2)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    ListView1.Columns.Insert(2, "col 3")
End Sub

Public Class Form1

    Dim listLocked As New List(Of Integer) 'Locked columns

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Add some columns
        ListView1.Columns.Add("Col 1")
        ListView1.Columns.Add("Col 2")
        ListView1.Columns.Add("Col 3")
        ListView1.Columns.Add("Col 4")

        'Add some test data
        Dim x As New ListViewItem
        x.Text = "1"
        x.SubItems.Add("2")
        x.SubItems.Add("3")
        x.SubItems.Add("4")
        ListView1.Items.Add(x)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim colIndex As Integer = 2
        ListView1.Columns(colIndex).Width = 0
        If Not listLocked.Contains(colIndex) Then listLocked.Add(colIndex)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim colIndex As Integer = 2
        ListView1.Columns(colIndex).Width = 25
        If listLocked.Contains(colIndex) Then listLocked.Remove(colIndex)
    End Sub


    Private Sub ListView1_ColumnWidthChanging(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnWidthChangingEventArgs) Handles ListView1.ColumnWidthChanging
        'Check column is not hidden
        If listLocked.Contains(e.ColumnIndex) Then
            e.Cancel = True
            e.NewWidth = 0
        End If

    End Sub
End Class

Imports System.Runtime.InteropServices
Namespace Controls
  Public Class ListView_FixColumns
    Inherits ListView
    Private _KolommenVrij(1024) As Boolean

    Public Const WM_NOTIFY As Integer = &H4E
    Public Const HDN_FIRST As Integer = 0 - 300
    Public Const HDN_BEGINTRACKA As Integer = HDN_FIRST - 6
    Public Const HDN_BEGINTRACKW As Integer = HDN_FIRST - 26
    <StructLayout(LayoutKind.Sequential)> Public Structure NMHDR
      Public hwndFrom As IntPtr
      Public idFrom As Integer
      Public code As Integer
    End Structure

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
      If m.Msg = WM_NOTIFY Then
        Dim hdr As NMHDR = CType(m.GetLParam(GetType(NMHDR)), NMHDR)
        If hdr.code = HDN_BEGINTRACKA OrElse hdr.code = HDN_BEGINTRACKW OrElse hdr.code = HDN_DIVIDERDBLCLICKW Then
          Dim nmHeader As NMHEADER = CType(m.GetLParam(GetType(NMHEADER)), NMHEADER)
          If Not _FreeColumns(nmHeader.iItem) Then
            m.Result = New IntPtr(1)
            Exit Sub
          End If
        End If
      End If
      MyBase.WndProc(m)
    End Sub  
    Public Property AllowColumnResize(ByVal Column As Integer) As Boolean
      Get
        Return _KolommenVrij(Column)
      End Get
      Set(ByVal value As Boolean)
        _KolommenVrij(Column) = value
      End Set
    End Property
  End Class
End Namespace