Article ID: 147654
Article Last Modified on 7/1/2004
XXXX-#####
Private Sub Form_Load ()
Dim DiskID As Long
Dim Track As Integer
' Initialize CD:
mmcontrol1.DeviceType = "CDAudio"
mmcontrol1.Command = "open"
' Make unique number based on tracks and tracklength:
DiskID = mmcontrol1.Tracks
For Track = 1 To mmcontrol1.Tracks
mmcontrol1.Track = Track
DiskID = DiskID + mmcontrol1.TrackLength ' Add 4-byte TrackLength
DiskID = DiskID + mmcontrol1.Length ' Add 4-byte CD Length
Next Track
' Set text to unique value:
Text1.Text = DiskID
End Sub
Additional query words: kbVBp400 kbVBp500 kbVBp600 kbMM kbVBp kbdsd kbDSupport
Keywords: kbhowto KB147654