Private Sub btnclearall_Click
Dim ctl As New Control
For Each ctl In Me.Controls
Next
If Typeof ctl Is textbox Then
Dim txtcontrol As Textbox = Directcast (ctl.Textbox)
Me.text = StringEmpty

For Each _control As Control In Me.Controls
            If TypeOf (_control) Is TextBox Then
                _control.Text = String.Empty
            End If
        Next

Call ClearContent()

Private Sub ClearContent()
TxtBoxStatus.Text = ""
End sub

Private Sub btnclearall_Click
 
Dim ctl As New Control
 
For Each ctl In Me.Controls
Next
 
'Ok above you looped through all controls on your form but did
'nothing with each itteration
 
'Now below is only checking one single control, the last one of your form
If Typeof ctl Is textbox Then
 
    'Above you detemined ctl, is a texbox, so why are
    'you creating a new text box and converting the 
    'the existing textbox into another textbox?
    Dim txtcontrol As Textbox = Directcast (ctl.Textbox)
 
 
    'Me is the form you are in, so the only thing
    'you are changing is the text propert of the form itself
    'not any of the text boxes.
    Me.text = StringEmpty[/COLOR]

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Controls.ClearControls()
 
        'To clear Textboxes only
        'Me.Controls.ClearControls(Of TextBox)()
    End Sub
End Class
Public Module Extension
 
    Private Sub ClearTextBox(ByVal T As TextBox)
        T.Clear()
    End Sub
 
    Private Sub ClearCheckBox(ByVal T As CheckBox)
        T.Checked = False
    End Sub
 
    Private Sub ClearListBox(ByVal T As ListBox)
        T.Items.Clear()
    End Sub
 
    <Runtime.CompilerServices.Extension()> _
    Public Sub ClearControls(ByVal Controls As Control.ControlCollection)
        For Each Control In Controls
            If ControlDefaults.ContainsKey(Control.GetType()) Then
                ControlDefaults(Control.GetType()).Invoke(Control)
            End If
        Next
    End Sub
    <Runtime.CompilerServices.Extension()> _
    Public Sub ClearControls(Of T)(ByVal Controls As Control.ControlCollection)
        If Not ControlDefaults.ContainsKey(GetType(T)) Then Return
 
        For Each Control In Controls
            If Control.GetType().Equals(GetType(T)) Then
                ControlDefaults(GetType(T)).Invoke(Control)
            End If
        Next
    End Sub
    Private _ControlDefaults As Dictionary(Of Type, Action(Of Control))
    Private ReadOnly Property ControlDefaults() As Dictionary(Of Type, Action(Of Control))
        Get
            If (_ControlDefaults Is Nothing) Then
                _ControlDefaults = New Dictionary(Of Type, Action(Of Control))
                _ControlDefaults.Add(GetType(TextBox), AddressOf ClearTextBox)
                _ControlDefaults.Add(GetType(CheckBox), AddressOf ClearCheckBox)
                _ControlDefaults.Add(GetType(ListBox), AddressOf ClearListBox)
            End If
            Return _ControlDefaults
        End Get
    End Property
End Module