Moduli di Classe - Moduliclasse.frm


	Private Sub Command1_Click() Dim pers As CPerson Dim c As New CPerson Dim FirstName As String Dim LastName As String Set pers = New CPerson pers.FirstName = txtFirstName.Text pers.LastName = txtLastName.Text Print pers.FirstName & " " & pers.LastName End Sub Private Sub Command2_Click() MsgBox "By Roberto VB - 3/4/2007" End End Sub Private Sub Form_Unload(Cancel As Integer) MsgBox "By Roberto VB - 3/4/2007" End Sub