Structures​

VB6

Type t_monapp
    Top As Integer
    Left As Integer
    Height As Integer
    Width As Integer
    Titre As String
    FicCfg As String
    FicBdd As String
End Type
Global MonApp As t_monapp

VB.net

Structure t_monapp
    Dim Top As Integer
    Dim Left As Integer
    Dim Height As Integer
    Dim Width As Integer
    Dim Titre As String
    Dim FicCfg As String
    Dim FicBdd As String
End Structure
Public MonApp As t_monapp