VB Code:
  1. 'Usage:   Set Font To Wingdings

  2. 'Line Arrows

  3. Command1.Caption = Chr$(223) 'Left Arrow

  4. Command1.Caption = Chr$(224) 'Right Arrow

  5. Command1.Caption = Chr$(225) 'Up Arrow

  6. Command1.Caption = Chr$(226) 'Down Arrow

  7. Command1.Caption = Chr$(227) 'Up-Left Arrow

  8. Command1.Caption = Chr$(228) 'Up-Right Arrow

  9. Command1.Caption = Chr$(229) 'Down-Left Arrow

  10. Command1.Caption = Chr$(230) 'Down-Right Arrow

  11. 'Solid Arrows

  12. Command1.Caption = Chr$(231) 'Left Arrow

  13. Command1.Caption = Chr$(232) 'Right Arrow

  14. Command1.Caption = Chr$(233) 'Up Arrow

  15. Command1.Caption = Chr$(234) 'Down Arrow

  16. Command1.Caption = Chr$(235) 'Up-Left Arrow

  17. Command1.Caption = Chr$(236) 'Up-Right Arrow

  18. Command1.Caption = Chr$(237) 'Down-Left Arrow

  19. Command1.Caption = Chr$(238) 'Down-Right Arrow

  20. 'Outlined Arrows

  21. Command1.Caption = Chr$(239) 'Left Arrow

  22. Command1.Caption = Chr$(240) 'Right Arrow

  23. Command1.Caption = Chr$(241) 'Up Arrow

  24. Command1.Caption = Chr$(242) 'Down Arrow

  25. Command1.Caption = Chr$(245) 'Up-Left Arrow [note the gap here]

  26. Command1.Caption = Chr$(246) 'Up-Right Arrow

  27. Command1.Caption = Chr$(247) 'Down-Left Arrow

  28. Command1.Caption = Chr$(248) 'Down-Right Arrow