pagepanel with popupmenu trouble

[Koen van Hees]

Hello,

I have a pagepanel with 11 pages (0 to 10).
I use a popupmenu to set the active page, with 11 items, (0-10)
It crashes the program and gives no clues in the debugger.

This is the code I use to set the page, inside the popupmenu Change 
handle

Sub Change()
  if me.ListIndex <> -1 then
    select case me.ListIndex
    case 0
      PagePanel1.PanelIndex=0
    case 1
      PagePanel1.PanelIndex=1
    case 2
      PagePanel1.PanelIndex=2
    case 3
      PagePanel1.PanelIndex=3
    case 4
      PagePanel1.PanelIndex=4
    case 5
      PagePanel1.PanelIndex=5
    case 6
      PagePanel1.PanelIndex=6
    case 7
      PagePanel1.PanelIndex=7
    case 8
      PagePanel1.PanelIndex=8
    case 9
      PagePanel1.PanelIndex=9
    case 10
      PagePanel1.PanelIndex=10
    end Select
  end if
End Sub

Any ideas?

Koen van Hees
Les Allées de St. Genis
299 Allée Diderot
01630 St Genis Pouilly
France
tel: +33 (0)4 50 42 08 78
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>