Option Explicit
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Form_Load()
  Dim lMaxWidth As Long
 
  lMaxWidth = Me.Width
 
  Me.Width = 0
  Me.Show
 
  While Me.Width < lMaxWidth
    Me.Width = Me.Width + 30
    Me.Refresh
    Sleep 15
  Wend
End Sub