چاپ کلمه به شکل...

[MHGF]

سلام دوستان
کسی هست که بتونه برنامه ای بنویسه که کلمه را گرفته و آن را به صورت زیر چاپ کند؟

مثلاً: IRANICDL
I
R
A
N
I
C
D
L

[MHGF]

خودم هستم عزیزم امر بفرما شما جون بخوای هم بهت میدم چه برسه به 2 تا کد!!!!
این هم کد:
Private Sub Command1_Click()
a$ = "IRANICDL"
For i = 1 To Len(a$)
Print Mid$(a, i, 1)
Next
End Sub

[!Plus]

اگه راست میگی از خودت تشکر کن...! (با دکمه تشکر...!) :34:

[gonbad city]

افزایش پست اینجوریشو دیگه ندیده بودیم :18::41: