vantom85

جزاكم الله الف الف خير

هل من رد اخوتى؟

السلام عليكم اخوانى بخصوص هذا الكود Private Sub cmdprint_Click() If TxtActivationNO.Text <> "" And IsNumeric(TxtActivationNO.Text) Then If TxtActivationNO.Text = Val(GetSerialNumber("C:\")) * 3 Then SaveSetting App.Title, "activationCode", "activationNo", TxtA…

اخى لابد انك استخدمت ocx فى مشروعك .....وينبغى لك انت تعمل packeg اوset up للبرنامج