Dim IME As IME
IME.Initialize("IME")
IME.AddHeightChangedEvent
Private Sub IME1_HeightChanged (NewHeight As Int, OldHeight As Int)
If NewHeight < (confirmacadastro.top + confirmacadastro.Height) Then
confirmacadastro.Top = NewHeight - confirmacadastro.Height
End If
End Sub