[VB.Net] Full code active adf.ly for Form .Net

MY PROJECT GET ADF.LY

Public Class active_adf
Dim id As String = "3246570" /Change ID for adf.ly
Dim newForm As Boolean = True


Private Sub active_adf_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim link As String = "http://adf.ly/" & id & "/dl.dropboxusercontent.com/u/114501587/active-code.html" 
WebBrowser1.Location = New Point(0, 0)
WebBrowser1.Dock = DockStyle.Fill
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Navigate(link)
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If WebBrowser1.DocumentText = "true" Then
If newForm = True Then
Form1.Show()
Me.Close()
Else
WebBrowser1.Visible = False
End If

End If
End Sub
End Class

Xin lỗi các bạn hiện tại ứng dụng chưa được phát hành vì một số lí do kỉ thuật !