bu şekilde yaptım ama olmadı
[vb]Private Sub tamam_Click()
WebBrowser1.Document.All("username").Value = mtn_kullaniciadi.Value
WebBrowser1.Document.All("password").Value = mtn_sifre.Value
WebBrowser1.Document.Links.Item(2).focus
WebBrowser1.Document.Links.Item(2).OnClick
HER ŞEYİ BİLECEKSİN DİYE BİR ŞEY YOK. SADECE BİLDİĞİNİ UNUTMA YETER.