[yesilce]

Private Sub WebTarayici_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim YeniPencere As New frmTarayici
Set ppDisp = YeniPencere.WebTarayici.object
YeniPencere.WebTarayici.RegisterAsBrowser = True
YeniPencere.WebTarayici.Silent = WebTarayici.Silent
YeniPencere.Label1.Caption = YeniPencere.WebTarayici.Height
YeniPencere.Show
Set YeniPencere = Nothing
Cancel = False
End Sub

yukarıdaki kodlarla tarayıcıda tıklanan linklerin veya açılan pop-up pencerelerin kendi tarayıcınızda açılması sağlanabiliyor.

peki burada;
açılacak pencerenin dikey boyutu,
açılacak pencerenin yatay boyutu,
açılacak pencerenin adres satırının gösterilip gösterilmeyeceği,
açılacak pencerenin menü çubuğunun gösterilip gösterilmeyeceği,
açılacak pencerenin araç kutularının gösterilip gösterilmeyeceği,
bilgilerini nasıl alabiliriz...

İlginiz için teşekkür ederim...