Public Class Aluno Dim Nome As String Dim Idade As Integer End Class
Public Class Frm_principal Public Sub New()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
Me.Text = "Teste Class"
End Sub
Public Sub Btm_1_Click(sender As Object, e As EventArgs) Handles Btm_1.Click
Dim DadoAluno As New Aluno
DadoAluno. (AQUI NAO APARECE NADA DA CLASSE JÁ DEFINIDA) ... Por que?
End Sub
End Class