German Edittext verhalten ändern

[Sinan Tuzcu]

Hallo,

weis einer warum dieses code nicht ausgeführt wird, wenn ich eine Text in das Feld Edittext1 reinkopiere, statt eintippe?

Sub EditText1_TextChanged (Old As String, New As String)

If EditText1.text = "" Then 
Button1.Enabled = False
Else If EditText1.text <> "" Then
Button1.Enabled = True
End If

If EditText1.Height < 225 Then
    EditText1.Height = su.MeasureMultilineTextHeight(EditText1, New) + 30dip
Else If EditText1.Height > 225 Then
EditText1.Height = 225
End If

gruß
Sinan