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 Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
 
Private Sub Form_Click()
Me.Caption = BitBlt(Me.hDC, 0, 0, 1000, 1000, GetDC(Me.hwnd), 0, 0, vbSrcCopy)
Me.Refresh
End Sub
 
Private Sub Timer1_Timer()
Static C As Long
C = C + 1
If C = 120 Then Form_Click: Timer1.Enabled = False
Me.Caption = Round(100 / 120 * C) & " %"
End Sub

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