... RegSetValue&(lphKey&, "shell\open\command", REG_SZ, _ sKeyValue, MAX_PATH) 'Lấy Icon làm ảnh đại diện sKeyName = "Khunglongbeo" 'Bạn tìm file Ico lưu vào đường dẫn qui định bên (đường dẫn tuỳ bạn qui định) ... RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&) Ret& = RegSetValue&(lphKey&, "DefaultIcon", REG_SZ, _ sKeyValue, MAX_PATH) 'Đổi Icon SHChangeNotify SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, End Sub '************************** ... 0, End Sub '************************** 'Phần mã bạn nhập vào Form1 Private Sub Form_Load() Tao _File_ He_Thong End Sub ...