| VB声明 | |
| Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long | |
| 说明 | |
| 用指定的属性创建一种逻辑字体 | |
| 返回值 | |
| Long，执行成功则返回逻辑字体的句柄，零表示失败。会设置GetLastError | |
| 参数表 | |
| 参数 | 类型及说明 |
| H | Long，IfHeight |
| W | Long，IfWidth |
| E | Long，IfEscapement |
| O | Long，IfOrientation |
| W | Long，IfWeight |
| I | Long，IfItalic |
| u | Long，IfUnderline |
| S | Long，IfStrikeOut |
| C | Long，IfCharSet |
| OP | Long，IfOutputPrecision |
| CP | Long，IfClipPrecision |
| Q | Long，IfQuality |
| PAF | Long，IfPitchAndFamily |
| F | String，IfFaceName |
| 注解 | |
| VB的字体属性在选择字体的时候显得更有效 | |