|
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type POLYTEXT
x As Long
y As Long
n As Long
lpStr As String
uiFlags As Long
rcl As RECT
pdx As Long
End Type
Private Declare Function PolyTextOut Lib "gdi32" Alias "PolyTextOutA" (ByVal hdc As Long, pptxt As POLYTEXT, ByVal cStrings As Long) As Long
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Me.AutoRedraw = True
Dim Pt As POLYTEXT
Const mStr = "Hello"
Pt.n = mStr
Pt.lpStr = VarPtr(mStr)
Call PolyTextOut(Me.hdc, Pt, 1)
End Sub
|
|