Option Explicit
Public Folgennummer As Byte
 
Private Sub mnuFolge1_Click()
   Folgennummer = 1
   PlayEpisodeNummer Folgennummer
End Sub
 
Private Sub mnuFolge2_Click()
   Folgennummer = 2
   PlayEpisodeNummer Folgennummer
End Sub
 
Private Sub cmdNext_Click()
   Folgennummer = Folgennummer + 1
   PlayEpisodeNummer Folgennummer
End Sub
 
Private Sub cmdPrevious_Click()
   Folgennummer = Folgennummer - 1
   PlayEpisodeNummer Folgennummer
End Sub
 
Private Sub PlayEpisodeNummer(index As Byte)
   Select Case index
   Case 1
   '...dein Code..."
   Case 2
   '...dein Code..."
   Case 3
   '...dein Code..."
   End Select
End Sub