Code:
Public Used1 As VBWorld.User
Public User2 As VBWorld.User
Public Admin As VBWorld.Admin
Public SEdit As VBWorld.SeniorE

Sub Underline()
  Set User1 = VBWorld.Users("Escaflowne")
  Set User2 = VBWorld.Users("Paul282")
  User2.AskRequest("A _ To end every Declare Line")
  User1.Agreed = True
  Set Admin = VBWorld.John
  Set Admin.Status = "Administrator"
  Admin.ShouldChangeForums = True
  Set SEdit = VBWorld.KarlMoore
  SEdit.UrgeAdmin = True
  VBWorldEx(DoItAll)
End Sub
;) :) :(