https://barnamenevis.org/showpo...1&postcount=66


 Public Enum Days

        Sat = 1

        Sun

        Mon

        Tue

        Wed

        Thu

        Fri

    End Enum



    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click



        Dim t As System.Type = GetType(Days)

        For Each s As String In Days.GetNames(t)



            ListBox1.Items.Add(s)

        Next

    End Sub