|
Const LAYOUT_RTL = &H1 ' Right to left
Const LAYOUT_BITMAPORIENTATIONPRESERVED = &H8
Private Declare Function GetLayout Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SetLayout Lib "gdi32" (ByVal hdc As Long, ByVal dwLayout As Long) As Long
Private Sub Form_Paint()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Hotmail.com
'set the new layout to RTL
If GetLayout(Me.hdc) <> LAYOUT_RTL Then SetLayout Me.hdc, LAYOUT_RTL
'print some text
Me.Print "Hello"
End Sub
|
|