UPLOAD FUNCTION:
Code:
        Dim b As New Bitmap(SystemInformation.VirtualScreen.Width, SystemInformation.VirtualScreen.Height)
        Dim g As Graphics = Graphics.FromImage(b)
        g.CopyFromScreen(0, 0, 0, 0, b.Size)
        g.Dispose()
        Return b
SCREEN BUTTON:
Code:
        WebBrowser1.Navigate("www.directupload.net")
        CaptureScreen()
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        PictureBox1.Image = CaptureScreen()
        IO.Directory.CreateDirectory("C:\Screeny")
        PictureBox1.Image.Save("C:\Screeny\TEMPimage.jpg")
UPLOAD BUTTON:
Code:
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        ProgressBar1.Value = 0
        ProgressBar1.Value += 50
        WebBrowser1.Document.GetElementById("bilddatei").Focus()
        SendKeys.Send("C:\Screeny\TEMPimage.jpg")
        SendKeys.Send("{ENTER}")
        ProgressBar1.Value += 50