Kosongkan Text dengan cara lain di VB6

Sub KosongkanTeks(frm As Form)

    Dim ctl As Control

    'Melakukan pengulangan sebanyak control

    'yang ada pada sebuah form

    For Each ctl In frm.Controls

        If TypeOf ctl Is TextBox Then

            'Samakan nilai properti Text

            'dengan nilai properti Tag

            ctl.Text = ctl.Tag

            'Larikan fokus kursor

            'ke kontrol yang memiliki nilai

            'TabIndex = 1

            If ctl.TabIndex = 1 Then

                ctl.SetFocus

            End If

        ElseIf TypeOf ctl Is ComboBox Then

            ctl.Text = ctl.Tag

            If ctl.TabIndex = 1 Then

                ctl.SetFocus

            End If

        End If

    Next

End Sub