عداد الصفحة

Private Sub Button1_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ServerClick 
       Dim popupScript As String = "<script language='javascript'>" & _
         "window.open('WebForm1.aspx', 'CustomPopUp', " & _
         "'width=200, height=200, menubar=yes,resizable=no')" & _
         "</script>"

        Page.RegisterStartupScript("WebForm1.aspx", popupScript)
    End Sub