 ,  
   ,   Integer, Long  .., Visual Basic    ,  .          ,       .
        :
[Private | Public] Type _
1 [([])] As  [2 [([])] As ]
End Type
  (Public)        (General) (Declarations) .            ,    .               Private,         .          ,   .
   ,         .     ,    :
'(General)(Declarations) (Module) Type usrGoodsType
GoodsNura As Long
Name As String * 40
Price As Currency End Type 1(General)(Declarations) (Form)
Dim usrTools As usrGoodsType Private Sub Commandl_Click()
usrTools.Name = ""
usrTools.Price = 2.95 End Sub
           usrGoodsType.           usrTools  usrGoodsType,          Commandl_Click.
      ,      ,      .         ,  :
' (General) (Declarations) (Module) Type usrPerson
Name As usrName
Number As Integer End Type
Public usrCustomer As usrPerson, usrSupplier As usrPerson Private Sub Commandl_Click()
usrSupplier .Name = "Use"
usrSupplier.Number = 21873
usrCustomer = usrSupplier End Sub
 usrSupplier  usrCustomer     usrPerson.    ,   .
     .       .     ,       .     ,     
  .        :
'(General)(Declarations) (Module) Type usrName
FirstName As String
Name As String * 40 End Type
1(General)(Declarations) (Module) Private Type usrPerson
Name As usrName
BirthDate As Date End Type
Dim usrCustomer As usrPerson Private Sub Commandl_Click0
usrCustomer.Name.FirstName = "Rene"
usrCustomer.Name.Name = "Lampe" End Sub
         .