<%@ Page Language="VB" %>
class MyValueClass
public dtBirthDay as new DateTime(1983,6,27)
function GetDayOfWeek() as String
return dtBirthDay.DayOfWeek.ToString()
end function
end class
sub Button_Click(Sender as Object, e as EventArgs)
dim objMyValueClass as new MyValueClass()
Response.Write(objMyValueClass.GetDayOfWeek())
end sub