مشکل در ایجاد فرم جدید

[MMR_1344]

با سلام به تمامی دوستان
من برای آموزش اکتیوایکس نویسی کارم رو با ایجاد یک فرم جدید شروع کردم که با مشکلات زیر برخورد کردم
1 - وقتی برنامه رو اجراء میکنم تایتل ساخته شدهنمایش داده نمیشه ام در زمان نمایش فرم اون ظاهر میشه
2 - اگر فرم رو در زمان ویرایش جابجا کنم قسمتهائی از فرم حذف میشه و انو رو مجدد ترسیم نمیکنه
3 - عکسی رو به عنوان متن فرم میخوام در مختصات درون کادر قرار بدم که ارور میگیره


Run-time error '438':
Object dosn't support this property or metod
فایل رو ضمیمه کردم

[parselearn]

دوست عزيز شما از يك نام رزرو شده استفاده كرديد!


Image.Left = X + 3

[MMR_1344]

با تشکر
دوست عزیز از محبتت متشکر
با لطف شما مشکل آخر حل شد اما برای دو مشکل اول راه حلی به نظرتون نمیرسه
در ضمن من برای قراردادن نام فرم از یک Label استفاده کردم خاصیت BackStyle اون رو هم به Transparent تبدیل کردم اما وقتی اون رو روی تیتر ساخته شده قرار میدم عکس رسم شده رو حذف میکنه
به هر حال از محبتتون متشکرم

[parselearn]

جواب2: من هيچ برچسبي نديدم در ليست كنترلهاي موجود
3: كدتون بايد در paint هم فراخواني بشه



Private Sub UserControl_Paint()
Call Showall
End Sub

Private Sub UserControl_Show()
Call Showall
End Sub

Private Sub UserControl_Resize()
Call Showall
End Sub
Private Sub Showall()
UserControl.Parent.Cls
UserControl.Parent.ScaleMode = 3
UserControl.Parent.BorderStyle = 0
UserControl.Height = Parent.Height
UserControl.Width = Parent.Width
UserControl.Parent.Controls(UserControl.Ambient.Di splayName).Align = 1

Dim Ret As Long
Ret = GetWindowLong(Parent.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Parent.hWnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Parent.hWnd, &HFF00FF, 0, LWA_COLORKEY
LoadTitel 0, 0
LoadBorder 0, 30, UserControl.ScaleHeight - 35, UserControl.ScaleWidth
End Sub

[MMR_1344]

دوست خوب
متشکرم ولی باید بگم اگر از Paint استثاده بشه تصویر ساخته شده همیشه در حال نمایش خواهد
در ضمن دوست عزیز اگر بخوام در این اکتو ایکس خودم از یک اکتیو ایکس دیگه ای استفاده کنم و همیشه بخوام اون اکتیو ایکس در مختصات خاصی باشه مثل تغییر اندازه صفحه یا کلید خروج از برنامه چگونه میتونم اون رو معرفی کنم