Определить дату изменения web-страницы. Зазместите на форме компонент Inet и элемент CommandButton. Public Function PageLastModified(URL As String) As String Dim strHeader As String Inet1.Protocol = icHTTP On Error Resume Next Inet1.OpenURL (URL) If Err.Number > 0 Then Exit Function strHeader = Inet1.GetHeader("Last-modified") PageLastModified = strHeader End Function Private Sub Command1_Click() MsgBox PageLastModified("http://visualprogs.narod.ru/index.html") End Sub