public songname as stringPrivate Sub Label1_Click(Index As Integer)songname=Label1(Index).CaptionFormrealplayer.ShowEnd SubPrivate Sub Formrealplayer_Load()WindowsMediaPlayer1.URL = App.Path & "\" & Formjingdian.songname & ".mp3"WindowsMediaPlayer1.Controls.playEnd Sub...