www.pudn.com > pdng22src.zip > SunSub.bas

Attribute VB_Name = "SunSub" 
Type SsTEng 
    ID As Integer   ' Définit des éléments de type de 
                        ' données. 
    Name As String * 20 
    Address As String * 30 
    Phone As Long 
    HireDate As Date 
End Type 
Sub CreateRecord(FrameBegin) 
    Dim BFrameBegin As SsTEng 
 
    MyRecord.ID = 12003 
    MyRecord.Address = "Salut Toi" 
    MsgBox MyRecord.Address 
End Sub