Private Sub Command1_Click()
  If Check1.Item(0).Value Then
    MsgBox "Aufruf Winamp"
  End If
  If Check1.Item(1).Value Then
    MsgBox "Aufruf iTunes"
  End If
  If Check1.Item(2).Value Then
    MsgBox "Aufruf Media Player"
  End If
End Sub