在窗体加载(Load)事件中，加入代码：

Private Sub Form_Load()    Dim rgbColor　　Dim iMode     rgbColor = Me.主体.BackColor  ' 保存原始背景颜色     iMode = 1                     ' 设置显示方式     ' iMode 方式： 1, 3      从左至右    '              2         从右至左    '              4,12      从上至下    '              5,7,13,15 从左上至右下    '              6,14      从右上至左下    '              8         从下至上    '              9,11      从左下至右上    '              10        从右下至左上    '              16-31     从内至外     AnimateWindow Me.hWnd, 200, iMode   ' 实现     Me.主体.BackColor = rgbColor        ' 恢复背景色    Me.Repaint                          ' 重绘窗体End Sub

来 源 于：ACCESS中国