在 WinAPI中 用 于 Unicode的 函 數 
    例 如 : 
    Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" 
     (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName 
     As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal 
     nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal 
     hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long 
    Declare Function CreateWindowExW Lib "user32" Alias "CreateWindowExW" 
     (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName 
     As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal 
     nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal 
     hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long 
    前 者 是 ANSI方 式 (在 Alias中 以 A結 尾 )， 后 者 是 UNICODE(在 Alias中 以 W結 尾 )。 具 體 去 MSDN查 看 關 于 UNICODE方 面 的 介 紹 ! 
    在 VB中 ,StrConv函 數 是 用 來 在 UNICODE和 ANSI之 間 轉 換 。 
    主 持 人 注 ： 使 用 API函 數 GetStdHandle(STD_OUTPUT_HANDLE)可 以 獲 得 標 準 輸 出 的 句 柄 ， 并 使 用 WriteFile進 行 輸 出 。 
<END>    
采 用 內 碼 轉 換 StrConv(String,ConVersion,LCID)函 數 
    其 中 ： ConVersion為 常 量 (VBFromUnicode 和 VBUnicode) 
     LCID為 編 碼 方 式 : &H404為 big5碼 ,&H804為 gbk碼 
    dim sSource As String,sTemp As String 
     sTemp=StrConv(sSource,vbUnicode,LCID方 式 ) 
<END>