Public WriteOnly Property EnabledAllControls() As Boolean
        Set(ByVal Value As Boolean)
            For Each c As Control In Me.Controls
                c.Enabled = Value
            Next
        End Set
    End Property
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button8.Click
        Me.Cursor = Cursors.WaitCursor
        EnabledAllControls = False
        ' ....
        ' DEIN CODE
        ' ....
        EnabledAllControls = True
        Me.Cursor = Cursors.Default
    End Sub