Private Sub tarayici_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)

On Error Resume Next

Dim IE As Object

Dim veri As String

Set IE = Me.tarayici

Me.Etiket77.Caption = ""

veri = IE.Document.All.tags("table").Item(7).Rows(0).cells(1).innertext

If veri = "Şifre " Then

Me.Etiket77.Caption = "BAĞLANDI"

Else

Me.Etiket77.Caption = "BAĞLANMADI....."

End If

End Sub

Şeklinde bi kod denedim. webborwserda sayfa açılırsa forma eklediğim Etiket77'de "BAĞLANDI" yazıyor. webbrowserda sayfa açılmazsa "BAĞLANMADI....." yazıyor.

Bunun yerine

Komut6.visible=true
Komut6.visible=false

gibi kod yazıp webbrowser açılmazsa Giriş butonunu gizleyebilirsin.