The Interesting Thread.

VB Code:

Private Type VBForumMember
  UserName As String
  IsAnnoyedEnough As Boolean
  IsBoredOfIt As Boolean
End Type
 
Dim Aknisely As VBForumMember
Dim Imposter As VBForumMember
 
Imposter = CopyMember(Aknisely)
 
Do Until Aknisely.IsAnnoyedEnough Or Imposter.IsBoredOfIt
  Call MakePost(Imposter)
Loop 
 
If Imposter.IsBoredOfIt Then
  Call PMUsernameAndPassword(Aknisely)
End if

:)