Private Declare Auto Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
      bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    Private Const PRINTSCREEN = &H2C
    Private Const ALTKEY = &H12
    Private Const KEYUP = &H2
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        keybd_event(ALTKEY, 0, 0, 0)
        keybd_event(PRINTSCREEN, 1, 0, 0)
        keybd_event(PRINTSCREEN, 1, KEYUP, 0)
        keybd_event(ALTKEY, 0, KEYUP, 0)
        Dim i As System.Drawing.Image = Clipboard.GetImage()
        i.Save("c:\test.jpg")
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist