'------------------------------------------------------- Declare Function SetParent Lib "user32" Alias "SetParent" _ (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long create form as qform width = 500 height = 400 create sb as qscrollbox width = form.width height = form.height end create end create dim childform as qform Setparent (childform.handle, sb.handle) dim but as qbutton but.parent=childform childform.show form.showmodal '-------------------------------------------------------