Make your own free website on

[an error occurred while processing this directive]
Const LAYOUT_RTL = &H1                             ' Right to left
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
    '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

Copyright © 1998-2000, The KPD-Team.
Send mail to with comments about this web site.
This site is located at