hi need your help in this you posted in code bank i needed few more please
here is the current code posted by bonnie in other thread:)
this tilts the screen upside down ok fine i got that i need 3 more
1: tilt screed right side
2: tilt screen left side
3: back to normal , off course when clicked on form it gets back to normal so maybe this isnt needed please anyone or bonnie;);););););):thumb::blush:
here is the current code posted by bonnie in other thread:)
Code:
'Paste into a blank Form
Option Explicit
Private Declare Function GetDC Lib "user32.dll" (ByVal hWnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Private Declare Function StretchBlt Lib "gdi32.dll" ( _
ByVal hdcDest As Long, _
ByVal nXOriginDest As Long, _
ByVal nYOriginDest As Long, _
ByVal nWidthDest As Long, _
ByVal nHeightDest As Long, _
ByVal hdcSrc As Long, _
ByVal nXOriginSrc As Long, _
ByVal nYOriginSrc As Long, _
ByVal nWidthSrc As Long, _
ByVal nHeightSrc As Long, _
ByVal dwRop As RasterOpConstants _
) As Long
Private Sub InvertScreen(ByRef Frm As Form)
Dim Width As Long, Height As Long
Width = Screen.Width / Screen.TwipsPerPixelX
Height = Screen.Height / Screen.TwipsPerPixelY
StretchBlt Frm.hDC, Width, Height, -Width, -Height, _
GetDC(GetDesktopWindow), 0&, 0&, Width, Height, vbSrcCopy
End Sub
Private Sub Form_Click()
Unload Me
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub
Private Sub Form_Load()
AutoRedraw = True
BorderStyle = vbBSNone
Caption = Caption
WindowState = vbMaximized
InvertScreen Me
End Subthis tilts the screen upside down ok fine i got that i need 3 more
1: tilt screed right side
2: tilt screen left side
3: back to normal , off course when clicked on form it gets back to normal so maybe this isnt needed please anyone or bonnie;);););););):thumb::blush: