ساخت کتابخانه TRIAL؟

[seyed_27 170]

بسمه تعالی

چطور میتونم نسخه بتا یا TRIAL کتابخونه رو بسازم بطوری که وقتی کتابخونه در برنامه بکار افتاد بعد از 20 ثانیه کل برنامه رو ببنده

یا اینکه یک MSGBOX باز بشه

همانطور که میدومید برای ساخت کتابخانه باید از CLASS MODUAL استفاده کرد و در اون نمیشه از تایمر یا MSGBOX بصورت معمول استفاده کرد

دوستان راهنمایی بفرمایند

'Class module
Sub Class_Globals
Dim t1 As Timer
End Sub

Public Sub F1(MainTxt As Label,TargetTxt As EditText)

	t1.Initialize("tmr1",5000)
	t1.Enabled = True
'	 Msgbox("این کتابخانه نسخه آزمایشی است . دوستان تست بفرمایند و اشکالاتش رو اعلان بفرمایند","اخطار")
		

End Sub 



Sub tmr1_Tick
t1.Enabled = False
ExitApplication
End Sub

این خلاصه دستورات منه که موقع اجرا به خط

t1.Initialize("tmr1",5000)

یا MSGBOX

گیر میده

کد خطا

java.lang.NullPointerException