{"type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkazu-pon.hatenadiary.org%2Fentry%2F20070925%2Fp1\" title=\" \u30b3\u30f3\u30b9\u30c8\u30e9\u30af\u30bf - \u304b\u305a\u307d\u3093\u306e\u30d6\u30ed\u30b0\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":null,"published":"2007-09-25 00:00:00","provider_url":"https://hatena.blog","version":"1.0","title":" \u30b3\u30f3\u30b9\u30c8\u30e9\u30af\u30bf","blog_title":"\u304b\u305a\u307d\u3093\u306e\u30d6\u30ed\u30b0","categories":["VB6"],"author_url":"https://blog.hatena.ne.jp/kazu_pon/","description":"VB6\u3067\u306f\u3054\u5b58\u77e5\u306e\u3068\u304a\u308a\u3001C#\u3001VB.NET\u3001C++\u306a\u3069\u3042\u308b\u30d1\u30e9\u30e1\u30fc\u30bf\u3092\u6e21\u3059\u30b3\u30f3\u30b9\u30c8\u30e9\u30af\u30bf\u304c\u3042\u308a\u307e\u305b\u3093\u3002 \u305d\u3093\u306a\u308f\u3051\u3067\u3001Set(Let) Property \u3067\u30af\u30e9\u30b9\u306e\u30d5\u30a3\u30fc\u30eb\u30c9\u306b\u6307\u5b9a\u3057\u3066\u3044\u305f\u306e\u3067\u3059\u304c\u3001\u8abf\u3079\u3066\u305f\u3089\u3053\u3093\u306a\u611f\u3058\u3067\u30a8\u30df\u30e5\u30ec\u30fc\u30c8\u3059\u308b\u65b9\u6cd5\u3082\u3042\u308b\u307f\u305f\u3044\u3067\u3059\u3002 \u307e\u3055\u306b\u3001\u300cCode Complete\u300d\u3067\u3044\u3046\u8a00\u8a9e\u306e\u300c\u4e2d\u3078\u300d\u306e\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u3063\u3066\u3084\u3064\u3067\u3059\u306d\u3002 \u30fbForm1.frm Option Explicit Private Sub Form_Load() Dim person1 As Person Set person1 = Create(New Person, \"kazupon\", 28) Ca\u2026","author_name":"kazu_pon","url":"https://kazu-pon.hatenadiary.org/entry/20070925/p1","blog_url":"https://kazu-pon.hatenadiary.org/","height":"190","width":"100%","provider_name":"Hatena Blog"}