Make ChildForm Center MDI Form Screen
[Modul] Public Sub TB_Zone(frm As Form, Optional vntUseScaleValues As Variant) Dim bUseScaleValues As Boolean If Not IsMissing(vntUseScaleValues) Then bUseScaleValues = vntUseScaleValues End If With frm If bUseScaleValues Then TB_ZoneLeft = .ScaleLeft + .Left TB_ZoneTop = .ScaleTop + .Top TB_ZoneWidth = .ScaleWidth TB_ZoneHeight = .ScaleHeight Else TB_ZoneLeft = .Left TB_ZoneTop = .Top TB_ZoneWidth = .Width TB_ZoneHeight = .Height End If End With End Sub Public Sub TB_CenterForm(frm As Form, Optional vntOffsetLeft As Variant, Optional vntOffsetTop As Variant, Optional vntConsiderTaskbar As Variant) Dim lLeft As Long, lTop As Long Dim lOffsetLeft As Long Dim lOffsetTop As Long Dim bConsiderTaskbar As Boolean If Not IsMissing(vntOffsetLeft) Then lOffsetLeft = vntOffsetLeft End If...
