Option Explicit

Private oMailForward As clsForward

Sub StartForward()
Set oMailForward = New clsForward
oMailForward.ForwardTo = "myname@somewhere.com"
End Sub

Sub StopForward()
Set oMailForward = Nothing
End Sub