Vb.net 再次清除文本框的有效方法

有没有一种方法，当我再次搜索时，我不会有一个按钮来清除它？代码只会出现在搜索按钮中。我对vb.net不是很熟悉。我只知道如何在列表视图中再次清除，而无需任何按钮来清除。。提前谢谢

Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click
    If txtsearch.Text = "" Then
        MsgBox("Pls enter valid values", MsgBoxStyle.Critical)
    Else
        searchrecord("SELECT * FROM Clothes where Size like '%" & txtsearch.Text & "%' order by Size")
    End If
End Sub

Private Sub btnsearch_Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理btnsearch。单击
如果txtsearch.Text=”“，则
MsgBox（“请输入有效值”，MsgBoxStyle.Critical）
其他的
searchrecord（“从衣服中选择*号，如“%”和txtsearch.Text&“%”按尺码排序）
txtsearch.Text=“”在搜索前插入？或者，如果要清除文本框的内容：
txtsearch.Text=“
Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click
                If txtsearch.Text = "" Then
                    MsgBox("Pls enter valid values", MsgBoxStyle.Critical)
                Else
                    ListViewName.Items.Clear() 'just clear the list view before the query again
                    searchrecord("SELECT * FROM Clothes where Size like '%" & txtsearch.Text & "%' order by Size")

                End If
 End Sub

Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click
    If txtsearch.Text = "" Then
        MsgBox("Pls enter valid values", MsgBoxStyle.Critical)
    Else
        searchrecord("SELECT * FROM Clothes where Size like '%" &  txtsearch.Text & "%' order by Size")
        txtsearch.Text = "" '<-- adding this
    End If
End Sub