Sub Globals
Private EditText1 As EditText
Private shake As Animation
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1") 'Includes EditText1
shake.InitializeTranslate("", -10dip, 0, 10dip, 0)
shake.RepeatCount = 5
shake.RepeatMode = shake.REPEAT_REVERSE
shake.Duration = 50
End Sub
Sub Activity_Click
shake.Start(EditText1)
End Sub