LOGFONT, как задать имя шрифта? - VB

Формулировка задачи:

1. Точнее, как задать имя шрифта? Остальное понятно. Надо, например - "Arial Cyr". А отвечает за шрифт: .lfFaceName(32) As Byte Как передать туда строку?? 2. (Если на пункт 1. ответ не известен ) В примерах (не VB-шных) .lfFaceName заполняют так: StrCopy(lfFaceName, "Arial Cyr") Что делает StrCopy? Хочу написать ее аналог тогда уж...

Решение задачи: «LOGFONT, как задать имя шрифта?»

textual
                            Листинг программы 
                        

                            Private Type LOGFONT
   lfHeight As Long
   lfWidth As Long
   lfEscapement As Long
   lfOrientation As Long
   lfWeight As Long
   lfItalic As Byte
   lfUnderline As Byte
   lfStrikeOut As Byte
   lfCharSet As Byte
   lfOutPrecision As Byte
   lfClipPrecision As Byte
   lfQuality As Byte
   lfPitchAndFamily As Byte
   lfFaceName(LF_FACESIZE) As Byte
End Type
'' .....
'' .....
'' .....
Dim iChar As Integer
Dim tLF As LOGFONT
Dim b() As Byte
''
sFont = "Arial Cyr"
b() = StrConv(sFont, vbFromUnicode)
For iChar = 1 To Len(sFont)
    tLF.lfFaceName(iChar - 1) = b(iChar - 1)
Next iChar
'' .....
'' .....
'' .....
                        