Here
logs(0)
is Appliacation logs. You can check your entries first.
Dim logs() As EventLog = EventLog.GetEventLogs()
Dim logsE As EventLogEntryCollection = logs(0).Entries()
ComboBox1.DataSource = (From log As EventLogEntry In logsE Order By log.Source Select log.Source).Distinct.ToArray