04-11-13, 01:21 PM
السلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمة الله وبركاته
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Members() As String = System.Enum.GetNames(GetType(MyEnum))
Me.ListBox1.Items.AddRange(Members)
End Subالسلام عليكم ورحمة الله وبركاته
