مشکل و یا دردسر با کد Private Sub Form_Load()

[MrSharif]

سلام من تازه عضو شدم و واقعا با مطالبی مه گذاشتیت حال کردم
گذشته از اینها من یک مشکلی دارم که نمیتونم حل کنم
در این قسمت Private Sub Form_Load() من یک کد دارم Private Sub Form_Load()

For i = 1 To 100
Load sock(i)
Next i
End Sub
که میخوام یک کد دیگر به این صورت بذارم برای اسکینPrivate Sub Form_Load()


Skin1.LoadSkin App.Path + "\" + "B-Studio.skn"
Skin1.ApplySkin Me.hWnd
End Sub

ولی نمیتونم و وقتی هم میزارم ایراد میگیره و وقتی فایل هارا با هم ترکیب میکنم به این صورت Private Sub Form_Load()

For i = 1 To 100
Load sock(i)
Next i

Skin1.LoadSkin App.Path + "\" + "B-Studio.skn"
Skin1.ApplySkin Me.hWnd
End Sub

من با exe کردن برنامه مشکل دارم ارور هست 432 ران تایم
و وقتی برنامه را جدا میکنم و برای هر کدام Private Sub Form1Load()
و Private Sub Form2Load() باز هم کد عمل نمیکنه

لطفا راهنمایی کنید

 

[MrSharif]

سلام

دوستان عزیز هیچ کدوم از شما نیست به من کمک کنه؟

 

[MrSharif]

یعنی هیچ کس نیست جواب مارو بده

 

[saeedsmk]

سلام
حوب خستيد به نظر مي ياد اين اسكين ساز شما و يا برنامه شما از dao يا Data access object استفاده ميكنه .
براي اطلاهات بيستر به اين صفحه مراجعه كنيد

http://www.racelinecentral.com/VBruntime_errors.html

اميدوارم كمك كنه