**** Merged from MCS ****
[mono-project.git] / mcs / class / Microsoft.VisualBasic / Test / standalone / 6595.vb
blob3767a78798a54df5af47369d74887af1a11b591d
2 ' Copyright (c) 2002-2003 Mainsoft Corporation.
4 ' Permission is hereby granted, free of charge, to any person obtaining a
5 ' copy of this software and associated documentation files (the "Software"),
6 ' to deal in the Software without restriction, including without limitation
7 ' the rights to use, copy, modify, merge, publish, distribute, sublicense,
8 ' and/or sell copies of the Software, and to permit persons to whom the
9 ' Software is furnished to do so, subject to the following conditions:
11 ' The above copyright notice and this permission notice shall be included in
12 ' all copies or substantial portions of the Software.
14 ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
15 ' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
16 ' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
17 ' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
18 ' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
19 ' FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
20 ' DEALINGS IN THE SOFTWARE.
25 Imports System
26 Imports Microsoft.VisualBasic
27 Public Class TestClass
28 Public Function Test() As String
29 'BeginCode
30 Dim a As Array
31 Dim s As String
32 Dim i As Integer
33 a = [Enum].GetValues(GetType(FirstDayOfWeek))
34 For Each i In a
35 s &= " " & WeekDay(Today, CType(i, FirstDayOfWeek)).ToString
36 Next
37 Return s
38 'EndCode
39 End Function
40 End Class