Option Explicit

'Ӳ̲
 Dim rDisk As ReYo.DiskInfo
 

Private Sub Command1_Click()

    Set rDisk = New ReYo.DiskInfo
    
        Text1 = rDisk.GetDiskMode
        Text2 = rDisk.GetDiskSerialNumber

    Set rDisk = Nothing
    
End Sub