[color=green]' Daklarationsbereich
Dim TimeLoad as Date
[color=green]' Daklarationsbereich Ende
 
Private Sub Form_Load()
  TimeLoad = Now + TimeSerial(24, 0, 0)
  Timer1.Interval = 60000
 
  Call SendIP
End Sub
 
Timer1_Timer()
  If Now >= TimeLoad Then
    Call SendIP
    TimeLoad = Now + TimeSerial(24, 0, 0)
  End If
End Sub
 
Private Sub SendIP()
  [color=green]' hier der Code zum Hochladen der IP
End Sub

Gruß
Marcus