Private iCounter As Integer = 0
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
 
Dim datei As String
datei = "C:\Test" & iCounter.ToString() & ".jpg"
ScreenToPicture(datei, System.Drawing.Imaging.ImageFormat.Jpeg)
 
End Sub