Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TryCast(Button1.Tag, TextBox) Is TextBox1 Then
            If ListView1.Visible = True Then
                ListView1.Visible = False
            Else
                If ListView1.Visible = False Then
                    ListView1.Visible = True
                End If
            End If
            End If
    End Sub

    Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
        Button1.Tag = sender

    End Sub