Private Function MakeScreenShot() As Bitmap
 
        Dim desk As String = My.Computer.FileSystem.SpecialDirectories.Desktop
 
        Dim Bmp As Bitmap = New Bitmap(Me.Width, Me.Height)
 
        Using Gra As Graphics = Graphics.FromImage(Bmp)
            Gra.CopyFromScreen(Me.Location.X, Me.Location.X, 0, 0, Me.Size)
        End Using
 
        Dim datum As String = Date.Now.Day & "/" & Date.Now.Month & "/" & _
          Date.Now.Year
        Dim Zeit As String = Date.Now.Hour & "/" & Date.Now.Minute & "/" & _
        Date.Now.Second
 
        Dim dateiname As String = IO.Path.Combine(desk, datum & " " & Zeit & _
          ".jpg")
        dateiname = dateiname.Replace("/", "-")
 
        Label21.Text = datum & " " & Zeit
        Bmp.Save(dateiname, Imaging.ImageFormat.Jpeg)
        Return Bmp
 
 
    End Function