Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Option Compare Database Dim x As Single, kx As Single, y As Single, ky As Single Private Sub Form_Load() x = Me.InsideWidth kx = Me.InsideWidth y = Me.InsideHeight ky = Me.InsideHeight End Sub Private Sub Form_Resize() Dim DeltaX As Single, DeltaY As Single, xt As Single, yt As Single Dim ctl As Control Dim frm As Form On Error Resume Next If Me.InsideWidth < kx Then: Me.InsideWidth = kx If Me.InsideHeight < ky Then: Me.InsideHeight = ky xt = Me.InsideWidth yt = Me.InsideHeight DeltaX = (xt - x) / 2 DeltaY = (yt - y) / 2 Set frm = Me.Form For Each ctl