Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load () Me.Show Call Sleep (5000) 'Call FunctionEnd Sub
Private Functin Form_Load () Me.Show Call Sleep (5000) 'Call FunctionEnd Sub