C#

enum sample
    {
    Hello = 0,
    There,
    Last
    }

static void Main(string[] args)
    {
    for (sample t = 0; t < sample.Last; t++)
        {
        Console.WriteLine(t);
        }
    Console.WriteLine("---");
    }

List<string> list = new List<string>();
FieldInfo[] fis = type.GetFields(BindingFlags.Public | BindingFlags.Static | BindingFlags.FlattenHierarchy);
foreach (FieldInfo fi in fis)
{
  if (fi.IsLiteral && !fi.IsInitOnly)
    list.Add(fi.Name);
}
return list;

Public Class Class1
    Public Const c1 As String = "c1"
    Public Const c2 As String = "c2"
    Const c3 As String = "c3"
    Dim var1 As String
    Public var2 As String

    Public Enum myEnum
        value1
        value2
    End Enum

End Class

For Each field As FieldInfo In getConstants(GetType(Class1))
            Console.WriteLine(field.Name)
Next

Private Function getConstants(ByVal pType As System.Type) As List(Of System.Reflection.FieldInfo)
        Dim fis() As FieldInfo
        Dim result As New List(Of System.Reflection.FieldInfo)

        fis = pType.GetFields()

        For Each fi As FieldInfo In fis
            If fi.IsLiteral And Not fi.IsInitOnly Then
                result.Add(fi)
            End If
        Next

        Return result

    End Function