redimensioning form

[balabonov]

hi, i am beginner and i have a problem i'm create an application for pocket pc
i have a form (called AIP), and i would redimensioning my form if keyboard (Pocket pc) actived

for a textbox it's good:

[COLOR=#000000]Sub Redessine[COLOR=#66cc66]([/COLOR][COLOR=#66cc66])[/COLOR] 
        Dim h As Integer = Me.[COLOR=#202020]Height[/COLOR] 'Hauteur Total 
        'Si le Panel est ouvert on ajuste 
        [COLOR=#00007f]If[/COLOR] InputPanel1.[COLOR=#202020]Enabled[/COLOR] [COLOR=#00007f]Then[/COLOR] h = InputPanel1.[COLOR=#202020]VisibleDesktop[/COLOR].[COLOR=#202020]Height[/COLOR] 
        'Recadre 
        [COLOR=#46aa03][B]With[/B][/COLOR] TextBox1 
            .[COLOR=#202020]Top[/COLOR] = [COLOR=#ff0000]0[/COLOR] : .[COLOR=#202020]Left[/COLOR] = [COLOR=#ff0000]0[/COLOR] : Me.[COLOR=#202020]Width[/COLOR] = [COLOR=#ff0000]0[/COLOR] : .[COLOR=#202020]Height[/COLOR] = h 
        [COLOR=#00007f]End[/COLOR] [COLOR=#46aa03][B]With[/B][/COLOR] 
       
    [COLOR=#00007f]End[/COLOR] Sub 
 
    [COLOR=#46aa03][B]Private[/B][/COLOR] Sub InputPanel1_EnabledChanged[COLOR=#66cc66]([/COLOR]ByVal sender As System.[COLOR=#202020]Object[/COLOR], ByVal e As System.[COLOR=#202020]EventArgs[/COLOR][COLOR=#66cc66])[/COLOR] Handles InputPanel1.[COLOR=#202020]EnabledChanged[/COLOR] 
        Redessine[COLOR=#66cc66]([/COLOR][COLOR=#66cc66])[/COLOR] 
    [COLOR=#00007f]End[/COLOR] Sub 
 
    [COLOR=#46aa03][B]Private[/B][/COLOR] Sub AIP_Resize[COLOR=#66cc66]([/COLOR]ByVal sender As System.[COLOR=#202020]Object[/COLOR], ByVal e As System.[COLOR=#202020]EventArgs[/COLOR][COLOR=#66cc66])[/COLOR] Handles MyBase.[COLOR=#202020]Load[/COLOR] 
        Redessine[COLOR=#66cc66]([/COLOR][COLOR=#66cc66])[/COLOR] 
    [COLOR=#00007f]End[/COLOR] Sub[/COLOR]

But i can't for all form (many labels and texbox)

Can you help me?