e.form.autoscroll = True Dim point As Point = e.form.DropDownBox.Form.Panel.PointToScreen(e.form.DropDownBox.BaseControl.Bounds.Location) 'e.Form.baseform.width = SysInfo.WorkingAreawidth-point.x e.Form.baseform.height = SysInfo.WorkingAreaHeight-point.y - 30