label over spinner

[omoba]

Hi,

I have a label over a spinner.

After a long press on label, the label disappear and the spinner appears.

Is there a way to make the spinner automatically drop open when is becomes visible?


Sub Label2_LongClick

Label2.Visible = False
Spinner2.Visible = True

End Sub


Sub Spinner2_ItemClick (Position As Int, Value As Object)

If Spinner2.selecteditem = "LEVEL 1" Then
Label2.Text = "LEVEL 1"
.
.
.
End If
If Spinner2.selecteditem = "LEVEL 2" Then
.
.
.
.
.
Spinner2.Visible = False
Label2.Visible = True
Label2.Text = Spinner2.selecteditem

End Sub

Thank

 

[mangojack]

Sub Label2_LongClick

    Label2.Visible = False
    Spinner2.Visible = True
    Spinner2.Height = 400dip

End Sub

Omoba .. disregard above .. incorrect . refer Erels response below

Cheers mj

 

[Erel]

Try to call performClick with Reflection:

Dim r As Reflector
r.Target = Spinner2
r.RunMethod("performClick")