'Beispiel : ScreenCapture : Horizontal gedrehte Anzeige.
'Hallo...
'Hier ein kleines Beispiel... um den Desktop "horizontal zu drehen"
'NG.:27.03.03.do
Private Declare Function GetDC Lib "user32" _
                            (ByVal hwnd As Long) _
                            As Long
 
Private Declare Function StretchBlt Lib "gdi32" _
                            (ByVal hdc As Long, _
                            ByVal x As Long, _
                            ByVal y As Long, _
                            ByVal nWidth As Long, _
                            ByVal nHeight As Long, _
                            ByVal hSrcDC As Long, _
                            ByVal xSrc As Long, _
                            ByVal ySrc As Long, _
                            ByVal nSrcWidth As Long, _
                            ByVal nSrcHeight As Long, _
                            ByVal dwRop As Long) _
                            As Long
 
Private Function FlipScreen()
    Dim nWidth      As Long
    Dim nHeight     As Long
 
    nWidth = Screen.Width / 15
    nHeight = Screen.Height / 15
    StretchBlt hdc, 0, nHeight, nWidth, -nHeight, GetDC(0&), 0, 0, _
                                                  nWidth, nHeight, _
                                                  vbSrcCopy
End Function
 
Private Sub Form_Load()
    With Me
        .AutoRedraw = True
    End With
    FlipScreen
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y _
  As Single)
    Call Unload(Me)
End Sub
'MfG
'Frank