VB Code:
  1. With Region(1)

  2.   .x = x + iXBorder

  3.   .y = y

  4.  End With

  5.  With Region(2)

  6.   .x = x

  7.   .y = y + Height

  8.  End With

  9.  With Region(3)

  10.   .x = x + Width

  11.   .y = y + Height

  12.  End With

  13.  With Region(4)

  14.   .x = (x + Width) - iXBorder

  15.   .y = y

  16.  End With

works for me.