A) Private Sub Text1_Change( ) Label1. Caption = Str( Len( Text1. Text) ) End Sub B) Private Sub Text1_Click( ) Label1. Caption = Str( Len( Text1. Text) ) End Sub C) Private Sub Text1_Change( ) Label1. Caption = Text1. Text End Sub D) Private Sub Label1_Change( ) Label1. Caption = Str( Len( Text1. Text) ) End Sub