[LoveVb]

sub(str as string)
str = "d"
end sub

واقوم باستدعائها في حلقة تكرارية
او ايضا استخدمها هكذا
sub(str as string)
dim str2 as string = str
end sub