Make your own free website on Tripod.com

AllApi.net

[an error occurred while processing this directive]
 
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


 
Copyright © 1998-2000, The KPD-Team.
Send mail to KPDTeam@Allapi.net with comments about this web site.
This site is located at
http://www.Allapi.net/