Cis170A_iLabWK2_Ayala

PrivateSubbtnDisplay_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesbtnDisplay.Click

DimfirstName, lastName, Major, daysToGraduateAsString

DimgradDate = Date.Now

firstName = txtFirstName.Text

lastName = txtLastName.Text

        Major = txtMajor.Text

gradDate = txtGradDate.Text

daysToGraduate = DateDiff(DateInterval.Day, Today(), gradDate)

MessageBox.Show(firstName&" "&lastName&", Marjor = "& Major &", Days to graduation = "&daysToGraduate&" Days", "Graduation")

EndSub

 

PrivateSubbtnClear_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesbtnClear.Click

txtFirstName.Text = ""

txtLastName.Text = ""

txtGradDate.Text = ""

txtMajor.Text
Powered by