VB控件的左对齐和上对齐Sub

'VB控件的左对齐和上对齐Sub
'这两个通用过程“左对齐和上对齐”可以很方便的设置控件的位置和大小，
'节省了很多代码，也不需要在设计阶段就把每个控件都设置好。
'在Form load过程或者其他过程都可以调用。


Sub ctrLeftAlignment(CtrA As Control, CtrB As Control, Optional ctrbTopGap As Long = 0, Optional ctrbWidth As Long = 0, Optional ctrbHeight As Long = 0)
  '控件左对齐
  'ctrA作为基准，ctrB左边与其左边对齐，ctrB在下
  'ctrbTopGap是两个控件纵向的间隔（不是两个top的差）
  'ctrbWidth是宽度，0表示与ctrA等宽，负数表示不变（不设置宽度）
  'ctrbHeight是高度，0表示与ctrA等高，负数表示不变（不设置高度）
  CtrB.Left = CtrA.Left
  CtrB.Top = CtrA.Top + CtrA.Height + ctrbTopGap
  If ctrbWidth = 0 Then
    CtrB.Width = CtrA.Width
  ElseIf ctrbWidth > 0 Then
    CtrB.Width = ctrbWidth
  Else '<0 不设置（保持现有值或设计值）
  
  End If
  If ct