número de elementos de una estructura

Public Structure empresa
        Dim rut As String
        Dim rsa As String
End Structure

Dim i As Integer = GetType(empresa).GetFields((BindingFlags.NonPublic Or (BindingFlags.Public Or BindingFlags.Instance))).Length

fuente