>>772
こんな風にクラスにするほうが俺はお勧めだと思う。
基本的なアイデアは764氏と同じだけど。

'cCloseMeクラス
Private WithEvents mTimer As Timer
Private mTargerForm As Form

Public Sub CloseMe()
　　Set mTimer = mTargerForm.Controls.Add("VB.Timer", "mTimer")
　　With mTimer
　　　　.Enabled = True
　　　　.Interval = 10
　　End With
End Sub

Public Property Let TargetForm(Frm As Form)
　　　　Set mTargerForm = Frm
End Property

Private Sub mTimer_Timer()
　　Unload mTargerForm
End Sub

で、自殺させたいフォームの宣言部で
Private mCloseMe As New cCloseMe
でインスタンス生成しておいて、（生成するタイミングは自殺させる寸前でもいいけど）
自殺させたいところで
mCloseMe.TargetForm = Me
mCloseMe.CloseMe
とする。