Option Explicit
Private bAbort As Boolean

Private Sub Command1_Click()
  bAbort = True
  sevPOP1.Cancel
End Sub

...
bAbort = False
...
If lngMsgCount > 0 Then
  For i = 1 To lngMsgCount ' geht alle emails auf dem server durch
    Text2 = "Emails " & lngMsgCount - i ' alle emails durchgehen
    DoEvents
    If bAbort Then Exit For
    Set oHeader = .HeaderInfo(i)
    With oHeader
      Text4 = "Absender: " & oHeader.MailFrom 
      Text5 = "Organisation: " & oHeader.Organization
      Text6 = "Betreff: " & oHeader.Subject
      Text7 = "Anhang: " & oHeader.Attachments
      Text8 = "Email: " & oHeader.Size 'größe der email in bytes
    End With
...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de