'日志代码编写帮定在datagrid
Sub datagridbind()
Dim log As New EventLog
log.Log = "Application"
log.Source = "zjx"
log.MachineName = "."
DataGrid1.DataSource = log.Entries
DataGrid1.DataBind()
End Sub
查看msdn帮助