Public Structure StrFolder
 Public isActive As Boolean
 Public NameFolder As String
 Public URLIDNumber As Integer
 Public DateOfFolder As String
 Public NameDescription As String
 Public NameLocation As String
End Structure

Imports System
Imports System.Reflection
Public Class Form1
    Public Structure StrFolder
        Public isActive As Boolean
        Public NameFolder As String
        Public URLIDNumber As Integer
        Public DateOfFolder As String
        Public NameDescription As String
        Public NameLocation As String
    End Structure
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim test As StrFolder
        Dim i As Integer
        test.isActive = True
        Dim myType As Type = test.GetType
        Dim myField As FieldInfo() = myType.GetFields() 'Get the fields from my() 'type'
        For i = 0 To myField.Length - 1
            Debug.Print(myField(i).Name)
            Debug.Print(myField(i).FieldType.Name)
        Next i
    End Sub
End Class