Sub Globals
Dim btnTest As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim temp,answer
Dim Id As InputDialog
Id.InputType = Id.INPUT_TYPE_DECIMAL_NUMBERS
btnTest.Initialize("Click")
Id.Input = btnTest.Text
answer = Id.Show("Button Name eingeben", "EINGABE", "Yes", "", "No", Null)
If answer = DialogResponse.POSITIVE Then
btnTest.Text = Id.Input
End If
temp = btnTest.Text
...