> > ちょとコード張ってみてよ(;´Д‘)
> Private Sub PageSeni(Byval KaisiPage As Integer,Byval OwariPage As Integer)
> {
>     Dim i As Integer
>     For i = KaisiPage To OwariPage - 1 Then
>         Me.Panel1.Add(GeneratePage(i))
>         Me.Panel1.Control(i).Visible = False
>         If i = OwariPage -1 Then
>             Me.Panel1.Control(i).Visible = True
>         Then
>     End If
> }

ﾍﾟｰｼﾞｾﾆ関数ｼｮｳｷ

参考：2007/10/20(土)12時37分47秒