Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC 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 dwRop As Long) _
  As Long
 
Private Sub Form_Load()
Me.AutoRedraw = True
Me.WindowState = 2
BitBlt Me.hDC, 0, 0, Screen.Width / Screen.TwipsPerPixelX, _
    Screen.Height / Screen.TwipsPerPixelY, _
    GetDC(0), 0, 0, vbSrcCopy
End Sub

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!