Dim a As String
Dim b As String
a = TextBox1.Text
b = InStr(WebBrowser1.DocumentText, a)
If b Then
WebBrowser1.Focus()
MsgBox("Kayıdınız Aktif")
Form2.Show
Else
MsgBox("Kayıtlı Değilsiniz.!")
End If
Timer Kod :
PHP:
If ProgressBar1.Value = ProgressBar1.Maximum Then
ProgressBar1.Value = 100
GroupBox1.Enabled = True
Timer1.Stop()
Else
ProgressBar1.Value = ProgressBar1.Value + 1
End If
Label2.Text = "%" & ProgressBar1.Value