Sub ime_HeightChanged (NewHeight As Int, OldHeight As Int)
If NewHeight = 100%y Then
pnltext.SetLayoutAnimated(400,pnltext.Left,100%y+NewHeight+pnltext.Height,pnltext.Width,pnltext.Height)
Sleep(600)
Else
pnltext.SetLayoutAnimated(400,pnltext.Left,100%y-NewHeight,pnltext.Width,pnltext.Height)
End If
End If
End Sub