how to use boolean??

I have use boolean variable. It always shows defualt value "false".
 


Dim boolg1 As New Boolean
Dim boolg2 As New Boolean

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
response.write(boolg1)
response.write(boolg2)
        
end sub

 Protected Sub Menu1_MenuItemClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MenuEventArgs) Handles Menu1.MenuItemClick

        Select Case num
            Case "1"
boolg1=true
boolg2=false
            Case "2"
boolg1=false
boolg2=true

            Case "3"

     &n ...