VB Code:
  1. DoEvents

  2. Beep GetFrequency(Octave_4, Note_G_Natural), Beat / (4 / 3)

  3. Beep GetFrequency(Octave_4, Note_F_Natural), Beat / 4

  4. Beep GetFrequency(Octave_4, Note_E_Flat), Beat / (4 / 3)

  5. Beep GetFrequency(Octave_4, Note_D_Natural), Beat / 4

  6. Beep GetFrequency(Octave_4, Note_C_Natural), Beat / (4 / 3)

  7. Beep GetFrequency(Octave_4, Note_B_Flat), Beat / 4

  8. Beep GetFrequency(Octave_4, Note_A_Natural), Beat / (4 / 3)

  9. Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 4

  10. DoEvents

  11. Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 3

  12. Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3

  13. Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3

  14. Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3

  15. DoEvents

  16. Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 2

  17. Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 2

  18. DoEvents

  19. Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3

  20. Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3

  21. Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 3

  22. Beep GetFrequency(Octave_4, Note_G_Natural), Beat * 2

  23. Beep GetFrequency(Octave_4, Note_D_Natural), Beat

  24. DoEvents

  25. Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3

  26. Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3

  27. Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 3

  28. Beep GetFrequency(Octave_4, Note_G_Natural), Beat * 2

  29. Beep GetFrequency(Octave_4, Note_D_Natural), Beat

  30. DoEvents

  31. Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3

  32. Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3

  33. Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3

  34. Beep GetFrequency(Octave_4, Note_A_Natural), Beat * 2

  35. Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3

  36. Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3

  37. Beep GetFrequency(Octave_3, Note_D_Natural), Beat / 3

  38. DoEvents

  39. Beep GetFrequency(Octave_3, Note_G_Natural), Beat * 2

  40. Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 2

  41. DoEvents

  42. Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3

  43. Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3

  44. Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 3

  45. Beep GetFrequency(Octave_4, Note_G_Natural), Beat * 2

  46. Beep GetFrequency(Octave_4, Note_D_Natural), Beat * 1

  47. DoEvents

  48. Beep GetFrequency(Octave_4, Note_C_Natural), Beat / 3

  49. Beep GetFrequency(Octave_4, Note_B_Natural), Beat / 3

  50. Beep GetFrequency(Octave_4, Note_A_Natural), Beat / 3

  51. Beep GetFrequency(Octave_4, Note_G_Natural), Beat * 1.5

  52. Beep GetFrequency(Octave_4, Note_E_Natural), Beat / 2

  53. Beep GetFrequency(Octave_4, Note_D_Natural), Beat / (4 / 3)

  54. Beep GetFrequency(Octave_4, Note_D_Natural), Beat / 4

  55.  
  56. Beep GetFrequency(Octave_4, Note_G_Natural), Beat * 4

  57.  
  58. Beep GetFrequency(Octave_4, Note_G_Natural), Beat

  59. Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 3

  60. Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 3

  61. Beep GetFrequency(Octave_3, Note_G_Natural), Beat / 3

  62.  
  63. Beep GetFrequency(Octave_3, Note_G_Natural), Beat

  64. Sleep Beat

  65.  
  66. End Sub

  67.  
  68. Private Sub Picture_Click()

  69.     End

  70. End Sub

very cool btw, howd you figure that out?!![/Highlight]