HDD Registration Code

changing window size Events

Private Sub form_resize ()

Hard Drive Registration Code

Private Sub Command1_Click ()

Set FSO = CreateObject ("Scripting.FileSystemObject")

Set d = fso.getdrive ("C:")

XYZ = Hex (D.serialnumber)

If Len (XYZ) > 7 Then

VOV01 = Left (Val (left (XYZ, 1), 1)), 1)

Vov02 = Left (Val (left (XYZ, 2), 1)), 1)

Vov03 = Left (Val (left (XYZ, 3), 1)), 1)

Vov04 = Left (Val (left (XYZ, 4), 1)), 1)

Vov05 = Left (Val (left (XYZ, 5), 1)), 1)

Vov06 = Left (Val (left (XYZ, 6), 1)), 1)

Vov07 = Left (Val (left (XYZ, 7), 1)), 1)

Vov08 = Left (Val (left (XYZ, 8), 1)), 1)

xxyz = Vov01 & Vov02 & Vov03 & Vov04 & Vov05 & Vov06 & Vov07 & Vov08

XXXYZ = Left (XXYZ * 9, 8)

MsgBox xxxyz

End If

End Sub

HDD Registration Code