do i have to name every caption to the form from my module. meaning do i have to rename every caption to include the form name. I moved it from the form to the module to save space. If you know a way to shorten this as well i would love to know thats 1 armor in my project
before
Public Sub Armor1()
If Armor1.Caption = "Tough Skin" Then Ab1.Caption = "5": Body1.Caption = "75": blades1.Caption = "5": Slugs1.Caption = "5": Arrow1.Caption = "5": Blunt1.Caption = "10": Gig1.Caption = "5": Fire1.Caption = "10": Electric1.Caption = "10"
after
Public Sub Armor1()
If CandC.Armor1.Caption = "Tough Skin" Then CandC.Ab1.Caption = "5": CandC.Body1.Caption = "75": CandC.blades1.Caption = "5": CandC.Slugs1.Caption = "5": CandC.Arrow1.Caption = "5": CandC.Blunt1.Caption = "10": CandC.Gig1.Caption = "5": CandC.Fire1.Caption = "10": CandC.Electric1.Caption = "10"
If CandC.Armor2.Caption = "Tough Skin" Then CandC.Ab2.Caption = "5": CandC.Body2.Caption = "75": CandC.blades2.Caption = "5": CandC.Slugs2.Caption = "5": CandC.Arrow2.Caption = "5": CandC.Blunt2.Caption = "10": CandC.Gig2.Caption = "5": CandC.Fire2.Caption = "10": CandC.Electric2.Caption = "10"
If CandC.Armor3.Caption = "Tough Skin" Then CandC.Ab3.Caption = "5": CandC.Body3.Caption = "75": CandC.blades3.Caption = "5": CandC.Slugs3.Caption = "5": CandC.Arrow3.Caption = "5": CandC.Blunt3.Caption = "10": CandC.Gig3.Caption = "5": CandC.Fire3.Caption = "10": CandC.Electric3.Caption = "10"
If CandC.Armor4.Caption = "Tough Skin" Then CandC.Ab4.Caption = "5": CandC.Body4.Caption = "75": CandC.blades4.Caption = "5": CandC.Slugs4.Caption = "5": CandC.Arrow4.Caption = "5": CandC.Blunt4.Caption = "10": CandC.Gig4.Caption = "5": CandC.Fire4.Caption = "10": CandC.Electric4.Caption = "10"
If CandC.Armor5.Caption = "Tough Skin" Then CandC.Ab5.Caption = "5": CandC.Body5.Caption = "75": CandC.blades5.Caption = "5": CandC.Slugs5.Caption = "5": CandC.Arrow5.Caption = "5": CandC.Blunt5.Caption = "10": CandC.Gig5.Caption = "5": CandC.Fire5.Caption = "10": CandC.Electric5.Caption = "10"
If CandC.Armor6.Caption = "Tough Skin" Then CandC.Ab6.Caption = "5": CandC.Body6.Caption = "75": CandC.blades6.Caption = "5": CandC.Slugs6.Caption = "5": CandC.Arrow6.Caption = "5": CandC.Blunt6.Caption = "10": CandC.Gig6.Caption = "5": CandC.Fire6.Caption = "10": CandC.Electric6.Caption = "10"
If CandC.Armor7.Caption = "Tough Skin" Then CandC.Ab7.Caption = "5": CandC.Body7.Caption = "75": CandC.blades7.Caption = "5": CandC.Slugs7.Caption = "5": CandC.Arrow7.Caption = "5": CandC.Blunt7.Caption = "10": CandC.Gig7.Caption = "5": CandC.Fire7.Caption = "10": CandC.Electric7.Caption = "10"
If CandC.Armor8.Caption = "Tough Skin" Then CandC.Ab8.Caption = "5": CandC.Body8.Caption = "75": CandC.blades8.Caption = "5": CandC.Slugs8.Caption = "5": CandC.Arrow8.Caption = "5": CandC.Blunt8.Caption = "10": CandC.Gig8.Caption = "5": CandC.Fire8.Caption = "10": CandC.Electric8.Caption = "10"
If CandC.Armor9.Caption = "Tough Skin" Then CandC.Ab9.Caption = "5": CandC.Body9.Caption = "75": CandC.blades9.Caption = "5": CandC.Slugs9.Caption = "5": CandC.Arrow9.Caption = "5": CandC.Blunt9.Caption = "10": CandC.Gig9.Caption = "5": CandC.Fire9.Caption = "10": CandC.Electric9.Caption = "10"
before
Public Sub Armor1()
If Armor1.Caption = "Tough Skin" Then Ab1.Caption = "5": Body1.Caption = "75": blades1.Caption = "5": Slugs1.Caption = "5": Arrow1.Caption = "5": Blunt1.Caption = "10": Gig1.Caption = "5": Fire1.Caption = "10": Electric1.Caption = "10"
after
Public Sub Armor1()
If CandC.Armor1.Caption = "Tough Skin" Then CandC.Ab1.Caption = "5": CandC.Body1.Caption = "75": CandC.blades1.Caption = "5": CandC.Slugs1.Caption = "5": CandC.Arrow1.Caption = "5": CandC.Blunt1.Caption = "10": CandC.Gig1.Caption = "5": CandC.Fire1.Caption = "10": CandC.Electric1.Caption = "10"
If CandC.Armor2.Caption = "Tough Skin" Then CandC.Ab2.Caption = "5": CandC.Body2.Caption = "75": CandC.blades2.Caption = "5": CandC.Slugs2.Caption = "5": CandC.Arrow2.Caption = "5": CandC.Blunt2.Caption = "10": CandC.Gig2.Caption = "5": CandC.Fire2.Caption = "10": CandC.Electric2.Caption = "10"
If CandC.Armor3.Caption = "Tough Skin" Then CandC.Ab3.Caption = "5": CandC.Body3.Caption = "75": CandC.blades3.Caption = "5": CandC.Slugs3.Caption = "5": CandC.Arrow3.Caption = "5": CandC.Blunt3.Caption = "10": CandC.Gig3.Caption = "5": CandC.Fire3.Caption = "10": CandC.Electric3.Caption = "10"
If CandC.Armor4.Caption = "Tough Skin" Then CandC.Ab4.Caption = "5": CandC.Body4.Caption = "75": CandC.blades4.Caption = "5": CandC.Slugs4.Caption = "5": CandC.Arrow4.Caption = "5": CandC.Blunt4.Caption = "10": CandC.Gig4.Caption = "5": CandC.Fire4.Caption = "10": CandC.Electric4.Caption = "10"
If CandC.Armor5.Caption = "Tough Skin" Then CandC.Ab5.Caption = "5": CandC.Body5.Caption = "75": CandC.blades5.Caption = "5": CandC.Slugs5.Caption = "5": CandC.Arrow5.Caption = "5": CandC.Blunt5.Caption = "10": CandC.Gig5.Caption = "5": CandC.Fire5.Caption = "10": CandC.Electric5.Caption = "10"
If CandC.Armor6.Caption = "Tough Skin" Then CandC.Ab6.Caption = "5": CandC.Body6.Caption = "75": CandC.blades6.Caption = "5": CandC.Slugs6.Caption = "5": CandC.Arrow6.Caption = "5": CandC.Blunt6.Caption = "10": CandC.Gig6.Caption = "5": CandC.Fire6.Caption = "10": CandC.Electric6.Caption = "10"
If CandC.Armor7.Caption = "Tough Skin" Then CandC.Ab7.Caption = "5": CandC.Body7.Caption = "75": CandC.blades7.Caption = "5": CandC.Slugs7.Caption = "5": CandC.Arrow7.Caption = "5": CandC.Blunt7.Caption = "10": CandC.Gig7.Caption = "5": CandC.Fire7.Caption = "10": CandC.Electric7.Caption = "10"
If CandC.Armor8.Caption = "Tough Skin" Then CandC.Ab8.Caption = "5": CandC.Body8.Caption = "75": CandC.blades8.Caption = "5": CandC.Slugs8.Caption = "5": CandC.Arrow8.Caption = "5": CandC.Blunt8.Caption = "10": CandC.Gig8.Caption = "5": CandC.Fire8.Caption = "10": CandC.Electric8.Caption = "10"
If CandC.Armor9.Caption = "Tough Skin" Then CandC.Ab9.Caption = "5": CandC.Body9.Caption = "75": CandC.blades9.Caption = "5": CandC.Slugs9.Caption = "5": CandC.Arrow9.Caption = "5": CandC.Blunt9.Caption = "10": CandC.Gig9.Caption = "5": CandC.Fire9.Caption = "10": CandC.Electric9.Caption = "10"