Jabaco Source

'no it's VB.net 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
   Dim MyEnum As MSComDlg.PrinterOrientationConstants '<- first select your Enum !!  
   
   Call EnumToTextBox(MyEnum, "", TextBox1, False) 
   TextBox1.SelectAll() 
   TextBox1.Copy() 
End Sub

Jabaco Source

Private Sub EnumToTextBox(ByVal aEnum As [Enum], _
                          ByVal EnumName As String, _
                          ByVal aTB As TextBox, _
                          Optional ByVal bInclName As Boolean = True, _
                          Optional ByVal bHex As Boolean = False, _
                          Optional ByVal iIndent As Integer = 3)
   
   Dim aSB As New System.Text.StringBuilder
   Dim tSB As New System.Text.StringBuilder
   Dim StrArrNames() As String
   Dim StrArrValues() As Integer
   Dim i As Integer
   
   If EnumName Is Nothing Or EnumName.Length = 0 Then
       EnumName = aEnum.GetType.Name
   End If
   
   aSB.Append("Public Enum ").Append(EnumName).Append(vbCrLf)
   StrArrNames = [Enum].GetNames(aEnum.GetType)
   StrArrValues = [Enum].GetValues(aEnum.GetType)
   
   For i = 0 To StrArrNames.Length - 1
      tSB = New System.Text.StringBuilder
      If bHex Then
         tSB.Append("&H").Append(Hex(CLng(StrArrValues(i))))
      Else
         tSB.Append(StrArrValues(i))
      End If
      If iIndent > 0 Then
         aSB.Append(Space(iIndent))
      End If
      If bInclName Then aSB.Append(EnumName).Append("_")
      aSB.Append(StrArrNames(i)).Append(" = ").Append(tSB.ToString).Append(vbCrLf)
   Next
   aSB.Append("End Enum").Append(vbCrLf)
   aTB.Text = aSB.ToString
End Sub