a 6ya Technician can help you resolve that issue over the phone in a minute or two.
Best thing about this new service is that you are never placed on hold and get to talk to real repair professionals here in the US. click here to Talk to a Technician (only for users in the US for now) and get all the help you need. Goodluck!
- If you need clarification, ask it in the comment box above.
- Better answers use proper spelling and grammar.
- Provide details, support with references or personal experience.
Tell us some more! Your answer needs to include more details to help people.You can't post answers that contain an email address.Please enter a valid email address.The email address entered is already associated to an account.Login to postPlease use English characters only.
Tip: The max point reward for answering a question is 15.
this sounds like a version number problem otherwords
check the type face you're using and make sure that one is installed on the other one,
MS will sometimes use a compatible font if the font is not found and yes it looks jumbled
Dim intLength as Integer
Dim y as Integer
Dim arrOut( ) as String
Dim TempLetter as String intLength=len(text1.text) ReDim arrOut(intLength) Randomize dim boolDone as boolean ' flag to track unfilled positions
Write a loop that gets each letter from text1, then choose a random number from 1 to intLength
Get the existing letter, then put it into a different position in the arrOut, based on the random number. If something is in that position, try again:
for y=1 to intLength tempLetter = mid(text1.text,y,1) boolDone=false do while boolDone=false r =CInt(Int((y * Rnd()) + 1))
'Get random # from 1 to length if arrOut(r) ="" then 'see if spot has been used arrOut(r) = tempLetter boolDone = true end if loop next 'get next letter in text1
text2.text=join(arrOut,"") ' concatenate arrOut, no delimiter.