雕刻的字体.frm

在窗体上显示雕刻的字体起他的就不说了大家看着自己加写东西

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00E7CB76&
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Const DST_TEXT = &H1
Private Const DSS_DISABLED = &H20
Private Declare Function DrawState Lib "user32" Alias _
    "DrawStateA" (ByVal hDC As Long, ByVal hBrush As Long, _
    ByVal lpDrawStateProc As Long, ByVal lParam As String, _
    ByVal wParam As Long, ByVal n1 As Long, ByVal n2 As _
    Long, ByVal n3 As Long, ByVal n4 As Long, ByVal un As _
    Long) As Long

Private Sub Form_Load()
 Dim FontStr As String

    Me.AutoRedraw = True
    FontStr = "那些痛的记忆化作"
    FontSize = 25
    ForeColor = &HFF&
    DrawState Me.hDC, 0, 0, FontStr, LenB(StrConv(FontStr, _
        vbFromUnicode)), 10, 80, 0, 0, DST_TEXT Or DSS_DISABLED
    Me.Refresh
End Sub