Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.MousePointer = 5 End Sub יש לך מאפס עד 15 או 99 במאפיינים כדי לטעון סמן אחר
אם תשובתו של ד"ר vb מספקת אז שלום אבל אם התכוונת לכפתור שתוכלי לבחור תמונה עם סיומת bmp ושיתחלף במצבים מסויימים כמו Enable , MoseOver , Click ,MoseDown אז יש לי Ocx שהורדתי מהאינטרנט ושיפצתי אותו אם זה מה שהתכוונת אשלח לך אותו באימייל