Public Class frmPersonalInfo

Private Sub frmPersonalInfo_Load(ByVal sender As , ByVal e As ) Handles 

End Sub

Private Sub btnDisplay_Click(ByVal sender As , ByVal e As ) Handles 

    Dim firstName, lastName, Major, daysToGraduate As String

    Dim gradDate  

    firstName  

    lastName  

    Major  

    gradDate  

    daysToGraduate  DateDiff(, Today(), gradDate)

    (firstName & " " & lastName & ", Marjor  " & Major & ", Days to graduation  " & daysToGraduate & " Days", "Graduation")

End Sub

Private Sub btnClear_Click(ByVal sender As...