Windows 8 Metro Thema [VB.NET]

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.afreesms.com/freesms/")
    End Sub
 
 
    Private Sub WebBrowser1_********Completed(sender As Object, e As WebBrowser********CompletedEventArgs) Handles WebBrowser1.********Completed
        kontrol()
        On Error Resume Next
        Dim Nesne As Object
        Nesne = WebBrowser1.********.Dom********.body.createControlRange()
        Nesne.Add(WebBrowser1.********.Images(2).DomElement)
        Nesne.execCommand("Copy")
        PictureBox1.Image = My.Computer.Clipboard.GetImage()
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label6.Text = ""
        Label6.Visible = False
        WebBrowser1.********.GetElementById("countrycode").SetAttribute("value", 90)
        WebBrowser1.********.GetElementById("smsto").SetAttribute("value", txtNo.Text)
        WebBrowser1.********.GetElementById("message").SetAttribute("value", txtMesaj.Text)
        WebBrowser1.********.GetElementById("smsfrom").SetAttribute("value", txtGonderen.Text)
        WebBrowser1.********.GetElementById("imgcode").SetAttribute("value", txtGkodu.Text)
        WebBrowser1.********.GetElementById("submit").InvokeMember("click")
    End Sub
 
    Sub kontrol()
        For Each sent As HtmlElement In WebBrowser1.********.GetElementsByTagName("td")
            If sent.InnerText = "SENT" Then
                Label6.Visible = True
                Label6.Text = "Gönderildi"
                WebBrowser1.Navigate("http://www.afreesms.com/freesms/")
                temizle()
            End If
        Next
    End Sub
    Sub temizle() ' MEsajı gönderdikten sonra textboxların temizlenmesini istiyosanız koyarsınız bunu
        txtNo.Text = ""
        txtMesaj.Text = ""
        txtGonderen.Text = ""
        txtGkodu.Text = ""
    End Sub