'=========================================================
'==            Visual Basic Sample Code From            ==
'==     Microsoft Excel/Visual Basic for Windows 95     ==
'==                  Programmer's Guide                 ==
'==                      Chapter 6                      ==
'=========================================================

' DISCLAIMER OF WARRANTY

' THIS FILE CONTAINS UNDOCUMENTED SAMPLE CODE. THIS SAMPLE CODE IS 
' PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT FURTHER
' DISCLAIMS ALL IMPLIED WARRANTIES INCLUDING WITHOUT LIMITATION ANY
' IMPLIED WARRANTIES OF MERCHANTABILITY OR OF FITNESS FOR A PARTICULAR
' PURPOSE. THE ENTIRE RISK ARISING OUT OF THE USE OR PERFORMANCE OF THE
' SAMPLE CODE REMAINS WITH YOU.

' IN NO EVENT SHALL MICROSOFT OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES
' WHATSOEVER (INCLUDING, WITHOUT LIMITATION, DAMAGES FOR LOSS OF
' BUSINESS PROFITS, BUSINESS INTERRUPTION, LOSS OF BUSINESS INFORMATION,
' OR OTHER PECUNIARY LOSS) ARISING OUT OF THE USE OF OR INABILITY TO USE
' THIS SAMPLE CODE, EVEN IF MICROSOFT HAS BEEN ADVISED OF THE POSSIBILITY
' OF SUCH DAMAGES. BECAUSE SOME STATES DO NOT ALLOW THE EXCLUSION OR
' LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES, THE
' ABOVE LIMITATION MAY NOT APPLY TO YOU.






'=========================================================
'==                    From Page 111                    ==
'=========================================================

Application.Name = "My Custom Application"

'-------------------------------------------------

Application.Caption = "My Custom Application"





'=========================================================
'==                    From Page 112                    ==
'=========================================================

GetQueryCriteria Criteria





'=========================================================
'==                    From Page 116                    ==
'=========================================================

Sub Demo1()
	Call Demo2
End Sub

Sub Demo2()
	Call Demo3
End Sub

Sub Demo3()
	MsgBox "Demo3 is running"
	Stop
End Sub





'=========================================================
'==                    From Page 118                    ==
'=========================================================

Sub DebugExample()
	Debug.Print ActiveWorkbook.Name
End Sub

'-------------------------------------------------

? ActiveWorkbook.Name

'-------------------------------------------------

SizeIt 5000, 3000

'-------------------------------------------------

For Each s In Sheets : Print s.Name : Next s





'=========================================================
'==                    From Page 119                    ==
'=========================================================

Function DueDate(ByVal AnyDate As Variant) As Variant
' This function calculates and returns the date of the first day
' of the month that follows the supplied date.

	Debug.Print "Year "; Year(AnyDate); "Month "; Month(AnyDate)
	DueDate = DateSerial(Year(AnyDate), Month(AnyDate) + 1, 1)
End Function


