vb鼠标手型指针VIP免费

vb 自带的鼠标参数没有手型的指针，处理方法： 1 mousepointer=99 mouseicon 指向手形的.cur 文件 2 用下面的语句，自己画一个手型指针 Private Sub Command1_Click() Dim Buffer(325) As Byte Buffer(0) = 0 Buffer(1) = 0 Buffer(2) = 2 Buffer(3) = 0 Buffer(4) = 1 Buffer(5) = 0 Buffer(6) = 32 Buffer(7) = 32 Buffer(8) = 0 Buffer(9) = 0 Buffer(10) = 5 Buffer(11) = 0 Buffer(12) = 0 Buffer(13) = 0 Buffer(14) = 48 Buffer(15) = 1 Buffer(16) = 0 Buffer(17) = 0 Buffer(18) = 22 Buffer(19) = 0 Buffer(20) = 0 Buffer(21) = 0 Buffer(22) = 40 Buffer(23) = 0 Buffer(24) = 0 Buffer(25) = 0 Buffer(26) = 32 Bu ffer(27) = 0 Bu ffer(28) = 0 Bu ffer(29) = 0 Bu ffer(30) = 64 Bu ffer(31) = 0 Bu ffer(32) = 0 Bu ffer(33) = 0 Bu ffer(34) = 1 Bu ffer(35) = 0 Bu ffer(36) = 1 Bu ffer(37) = 0 Bu ffer(38) = 0 Bu ffer(39) = 0 Bu ffer(40) = 0 Bu ffer(41) = 0 Bu ffer(42) = 128 Bu ffer(43) = 0 Bu ffer(44) = 0 Bu ffer(45) = 0 Bu ffer(46) = 0 Bu ffer(47) = 0 Bu ffer(48) = 0 Bu ffer(49) = 0 Bu ffer(50) = 0 Bu ffer(51) = 0 Bu ffer(52) = 0 Bu ffer(53) = 0 Bu ffer(54) = 0 Bu ffer(55) = 0 Bu ffer(56) = 0 Bu ffer(57) = 0 Bu ffer(58) = 0 Bu ffer(59) = 0 Bu ffer(60) = 0 Bu ffer(61) = 0 Bu ffer(62) = 0 Bu ffer(63) = 0 Bu ffer(64) = 0 Bu ffer(65) = 0 Bu ffer(66) = 255 Bu ffer(67) = 255 Bu ffer(68) = 255 Bu ffer(69) = 0 Bu ffer(70) = 0 Bu ffer(71) = 0 Bu ffer(72) = 0 Bu ffer(73) = 0 Bu ffer(74) = 0 Bu ffer(75) = 0 Bu ffer(76) = 0 Bu ffer(77) = 0 Bu ffer(78) = 0 Bu ffer(79) = 0 Bu ffer(80) = 0 Bu ffer(81) = 0 Bu ffer(82) = 0 Bu ffer(83) = 0 Bu ffer(84) = 0 Bu ffer(85) = 0 Bu ffer(86) = 0 Bu ffer(87) = 0 Bu ffer(88) = 0 Bu ffer(89) = 0 Bu ffer(90) = 0 Bu ffer(91) = 0 Bu ffer(9...