Here is Screen Shot/Capture + Mouse + No clipboard + No dll ocx

[ufo973]

You simply need to do 3 things.

1. Set Pscreen.AutoRedraw equal to True
2. Set Pscreen.Autosize equal to True
3. Add the line: Pscreen.Picture = Pscreen.Image before your SavePicture call

Private Sub Cscreen_Click()
 
    'TakeScreenShot Pscreen, App.Path & "\ScreenShot.bmp"
    
    Pscreen.AutoRedraw = True
    Pscreen.AutoSize = True
        
    'Capture the screen
    Pscreen.Picture = CaptureScreen
    'Capture the mouse
 
    PaintCursor Pscreen
    
    Pscreen.Picture = Pscreen.Image
    
    'Finally Save
    SavePicture Pscreen, App.Path & "\ScreenShot.bmp"
    
 
    
End Sub

Tom

Thanx it works
But there is still one problem the mouse position is not acurate? I couldn't figure it out, can you guys check it plz?