下記プログラム作成してエラーが出る XP_Pro で試してみたらどうなりますか?Labelに 2 が表示されますか?Option ExplicitPrivate Sub Command1_Click() Label1.Caption = CreateObject("SYSINFO.Sysinfo").OSPlatformEnd Sub