كمك براي دستور شرطي

[iran2008]

سلام
من ميخوام چند دستور رو بدم به برنامه اجرا كنه اما نميدونم از كدوم دستور شرطي و چگونه استفاده كنم ؟


شرط من اينجوريه :



Private Sub Form_Load()
If Form1.ll1.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (0)
ElseIf Form1.ll2.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (1)
ElseIf Form1.ll3.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (2)
ElseIf Form1.ll4.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (3)
ElseIf Form1.ll5.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (4)
ElseIf Form1.ll6.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (5)
ElseIf Form1.ll7.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (6)
ElseIf Form1.ll8.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (7)
ElseIf Form1.ll9.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (8)
ElseIf Form1.ll10.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (9)
ElseIf Form1.ll11.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (10)
Else
If Form1.ll12.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (11)
End If
End Sub




حال مشكل دارم و وقتي اجرا ميشه گير ميده .

ميشه بگيد مشكلم از كجاست .

[sina_saravi1]

سلام
چرا متنای فارسی رو این شکلی نشون میده؟
یه سوال ازشرطتون
Cm چیه که بعد از then تو همه جمله ها اومده؟
آیا لیست باکسه؟

[noorsoft]

اگف قرار باشه از دستور elseif استفاده کنی باید جلوی then ها دیگه چیزی ننویسی



if x=1 then
....
elseif x=2 then
.
.
.
elseif x=3 then
.
.
else
.
.
.
end if



ولی از اوجایی که شرطهای شما در یک راستا نیستند لازم نیست از Elseif استفاده کنید