Private Sub capture_MediaEvent (ByVal EventCode As Long, ByVal Param1 As Long, ByVal Param2 As Long)
Select Case EventCode
Case ltmmEC_DVD_DOMAIN_CHANGE
txtStatus.Text = "The DVD domain is changed"
Case ltmmEC_DVD_TITLE_CHANGE
txtStatus.Text = "The DVD current title The name for a group of related video files (called "Chapters") on your DVD. For example, for a DVD called "My Summer Vacation," you might have the titles "Water Skiing," "New Friends," and "Hiking." For each of those titles, you might have one or more different video files. number is changed"
End Select