There's nothing to play with. First, VB6 was know to have bad support for Right-to-Left text.
But, the textbox will display any text it's given, provided the font being used supports the appropriate characters. It'll look like junk if the font doesn't support it. So, where exactly are you seeing this "junk"?
Let me tell you this junk is displaying correct value in text box or crystal repots having font supports arabic charset. But at the time of saving in (Insert statement) textbox.text gives me this junk, How can I play with them.
Like I said, it's a dead language. If you want to use it, you'll be doing a lot of archeology.
i want to use class Win32_DefragAnalysis(WMI) to scan status of other volume, but it is not active, exactly, the For-each is not work, please help me,
<pre lang="vb">Private Sub defrag_analysis() On Error Resume Next Dim item Dim nameSQL Dim wmiOBJECT Dim itemCOLLECTION Set wmiOBJECT = GetObject("Winmgmts:\\.\root\cimv2") nameSQL = "select * from Win32_DefragAnalysis" ' Where VolumeSize > 0 " Set itemCOLLECTION = wmiOBJECT.ExecQuery(nameSQL) For Each item In itemCOLLECTION 'not print properties of item MsgBox "VolumeSize : " & item.VolumeSize MsgBox "Name : " & item.VolumeName MsgBox "FreeSpace :" & item.FreeSpace MsgBox "AverageFileSize : " & item.AverageFileSize Next