E come dovrei eseguire in VB6 una Shuffle corretta?