Periodic Table

by Anonymous (267 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 5^th October 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)
Periodic Table
API Declarations
'and make 3 other labels named, lblName, lblSymbol, lblNumber
Rate Periodic Table


lblNumber = "1"
lblName = "Hydrogen"
lblSymbol = "H"
End Sub
Private Sub Label2_Click()
lblNumber = "2"
lblName = "Helium"
lblSymbol = "He"
End Sub
Private Sub Label3_Click()
lblNumber = "3"
lblName = "Lithium"
lblSymbol = "Li"
End Sub
Private Sub Label4_Click()
lblNumber = "4"
lblName = "Beryllium"
lblSymbol = "Be"
End Sub
Private Sub Label5_Click()
lblNumber = "5"
lblName = "Boron"
lblSymbol = "B"
End Sub
Private Sub Label6_Click()
lblNumber = "6"
lblName = "Carbon"
lblSymbol = "C"
End Sub
Private Sub Label7_Click()
lblNumber = "7"
lblName = "Nitrogen"
lblSymbol = "N"
End Sub
Private Sub Label8_Click()
lblNumber = "8"
lblName = "Oxygen"
lblSymbol = "O"
End Sub
Private Sub Label9_Click()
lblNumber = "9"
lblName = "Flurine"
lblSymbol = "F"
End Sub
Private Sub Label10_Click()
lblNumber = "10"
lblName = "Neon"
lblSymbol = "Ne"
End Sub
Private Sub Label11_Click()
lblNumber = "11"
lblName = "Sodium"
lblSymbol = "Na"
End Sub
Private Sub Label12_Click()
lblNumber = "12"
lblName = "Magnesium"
lblSymbol = "Mg"
End Sub
Private Sub Label13_Click()
lblNumber = "13"
lblName = "Aluminium"
lblSymbol = "Al"
End Sub
Private Sub Label14_Click()
lblNumber = "14"
lblName = "Silicon"
lblSymbol = "Si"
End Sub
Private Sub Label15_Click()
lblNumber = "15"
lblName = "Phosphorus"
lblSymbol = "P"
End Sub
Private Sub Label16_Click()
lblNumber = "16"
lblName = "Sulphur"
lblSymbol = "S"
End Sub
Private Sub Label17_Click()
lblNumber = "17"
lblName = "Chlorine"
lblSymbol = "Cl"
End Sub
Private Sub Label18_Click()
lblNumber = "18"
lblName = "Argon"
lblSymbol = "Ar"
End Sub
Private Sub Label19_Click()
lblNumber = "19"
lblName = "Potassium"
lblSymbol = "K"
End Sub
Private Sub Label20_Click()
lblNumber = "20"
lblName = "Calcium"
lblSymbol = "Ca"
End Sub
Private Sub Label21_Click()
lblNumber = "21"
lblName = "Scandium"
lblSymbol = "Sc"
End Sub
Private Sub Label22_Click()
lblNumber = "22"
lblName = "Titanium"
lblSymbol = "Ti"
End Sub
Private Sub Label23_Click()
lblNumber = "23"
lblName = "Vanadium"
lblSymbol = "V"
End Sub
Private Sub Label24_Click()
lblNumber = "24"
lblName = "Chromium"
lblSymbol = "Cr"
End Sub
Private Sub Label25_Click()
lblNumber = "25"
lblName = "Manganese"
lblSymbol = "Mn"
End Sub
Private Sub Label26_Click()
lblNumber = "26"
lblName = "Iron"
lblSymbol = "Fe"
End Sub
Private Sub Label27_Click()
lblNumber = "27"
lblName = "Cobalt"
lblSymbol = "Co"
End Sub
Private Sub Label28_Click()
lblNumber = "28"
lblName = "Nickel"
lblSymbol = "Ni"
End Sub
Private Sub Label29_Click()
lblNumber = "29"
lblName = "Copper"
lblSymbol = "Cu"
End Sub
Private Sub Label30_Click()
lblNumber = "30"
lblName = "Zinc"
lblSymbol = "Zn"
End Sub
Private Sub Label31_Click()
lblNumber = "31"
lblName = "Gallium"
lblSymbol = "Ga"
End Sub
Private Sub Label32_Click()
lblNumber = "32"
lblName = "Germanium"
lblSymbol = "H"
End Sub
Private Sub Label33_Click()
lblNumber = "33"
lblName = "Arsenic"
lblSymbol = "As"
End Sub
Private Sub Label34_Click()
lblNumber = "34"
lblName = "Selenium"
lblSymbol = "Se"
End Sub
Private Sub Label35_Click()
lblNumber = "35"
lblName = "Bromine"
lblSymbol = "Br"
End Sub
Private Sub Label36_Click()
lblNumber = "36"
lblName = "Krypton"
lblSymbol = "Kr"
End Sub
Private Sub Label37_Click()
lblNumber = "37"
lblName = "Rubidium"
lblSymbol = "Rb"
End Sub
Private Sub Label38_Click()
lblNumber = "38"
lblName = "Strontium"
lblSymbol = "Sr"
End Sub
Private Sub Label39_Click()
lblNumber = "39"
lblName = "Yttrium"
lblSymbol = "Y"
End Sub
Private Sub Label40_Click()
lblNumber = "40"
lblName = "Zirconium"
lblSymbol = "Zr"
End Sub
Private Sub Label41_Click()
lblNumber = "41"
lblName = "Niobium"
lblSymbol = "Nb"
End Sub
Private Sub Label42_Click()
lblNumber = "42"
lblName = "Molybdenum"
lblSymbol = "Mo"
End Sub
Private Sub Label43_Click()
lblNumber = "43"
lblName = "Technetium"
lblSymbol = "Tc"
End Sub
Private Sub Label44_Click()
lblNumber = "44"
lblName = "Ruthenium"
lblSymbol = "Ru"
End Sub
Private Sub Label45_Click()
lblNumber = "45"
lblName = "Rhodium"
lblSymbol = "Rh"
End Sub
Private Sub Label46_Click()
lblNumber = "46"
lblName = "Palladium"
lblSymbol = "Pd"
End Sub
Private Sub Label47_Click()
lblNumber = "47"
lblName = "Silver"
lblSymbol = "Ag"
End Sub
Private Sub Label48_Click()
lblNumber = "48"
lblName = "Cadmium"
lblSymbol = "Cd"
End Sub
Private Sub Label49_Click()
lblNumber = "49"
lblName = "Indium"
lblSymbol = "In"
End Sub
Private Sub Label50_Click()
lblNumber = "50"
lblName = "Tin"
lblSymbol = "Sn"
End Sub
Private Sub Label51_Click()
lblNumber = "51"
lblName = "Antimony"
lblSymbol = "Sb"
End Sub
Private Sub Label52_Click()
lblNumber = "52"
lblName = "Tellurium"
lblSymbol = "Te"
End Sub
Private Sub Label53_Click()
lblNumber = "53"
lblName = "Iodine"
lblSymbol = "I"
End Sub
Private Sub Label54_Click()
lblNumber = "54"
lblName = "Xenon"
lblSymbol = "Xe"
End Sub
Private Sub Label55_Click()
lblNumber = "55"
lblName = "Caesium"
lblSymbol = "Cs"
End Sub
Private Sub Label56_Click()
lblNumber = "56"
lblName = "Barium"
lblSymbol = "Ba"
End Sub
Private Sub Label57_Click()
lblNumber = "57"
lblName = "Lanthanum"
lblSymbol = "La"
End Sub
Private Sub Label58_Click()
lblNumber = "58"
lblName = "Cerium"
lblSymbol = "Cs"
End Sub
Private Sub Label59_Click()
lblNumber = "59"
lblName = "Praseodymium"
lblSymbol = "Pr"
End Sub
Private Sub Label60_Click()
lblNumber = "60"
lblName = "Neodymium"
lblSymbol = "Nd"
End Sub
Private Sub Label61_Click()
lblNumber = "61"
lblName = "Promethium"
lblSymbol = "Pm"
End Sub
Private Sub Label62_Click()
lblNumber = "62"
lblName = "Samarium"
lblSymbol = "Sm"
End Sub
Private Sub Label63_Click()
lblNumber = "63"
lblName = "Europium"
lblSymbol = "Eu"
End Sub
Private Sub Label64_Click()
lblNumber = "64"
lblName = "Gadolinium"
lblSymbol = "Gd"
End Sub
Private Sub Label65_Click()
lblNumber = "65"
lblName = "Terbium"
lblSymbol = "Tb"
End Sub
Private Sub Label66_Click()
lblNumber = "66"
lblName = "Dysprosium"
lblSymbol = "Dy"
End Sub
Private Sub Label67_Click()
lblNumber = "67"
lblName = "Holmium"
lblSymbol = "Ho"
End Sub
Private Sub Label68_Click()
lblNumber = "68"
lblName = "Erbium"
lblSymbol = "Er"
End Sub
Private Sub Label69_Click()
lblNumber = "69"
lblName = "Thulium"
lblSymbol = "Tm"
End Sub
Private Sub Label70_Click()
lblNumber = "70"
lblName = "Ytterbium"
lblSymbol = "Yb"
End Sub
Private Sub Label71_Click()
lblNumber = "71"
lblName = "Lutetium"
lblSymbol = "Lu"
End Sub
Private Sub Label72_Click()
lblNumber = "72"
lblName = "Hafnium"
lblSymbol = "Hf"
End Sub
Private Sub Label73_Click()
lblNumber = "73"
lblName = "Tantalum"
lblSymbol = "Ta"
End Sub
Private Sub Label74_Click()
lblNumber = "74"
lblName = "Wolfram"
lblSymbol = "W"
End Sub
Private Sub Label75_Click()
lblNumber = "75"
lblName = "Rhenium"
lblSymbol = "Re"
End Sub
Private Sub Label76_Click()
lblNumber = "76"
lblName = "Osmium"
lblSymbol = "Os"
End Sub
Private Sub Label77_Click()
lblNumber = "77"
lblName = "Iridium"
lblSymbol = "Ir"
End Sub
Private Sub Label78_Click()
lblNumber = "78"
lblName = "Platinum"
lblSymbol = "Pt"
End Sub
Private Sub Label79_Click()
lblNumber = "79"
lblName = "Gold"
lblSymbol = "Au"
End Sub
Private Sub Label80_Click()
lblNumber = "80"
lblName = "Mercury"
lblSymbol = "Hg"
End Sub
Private Sub Label81_Click()
lblNumber = "81"
lblName = "Thallium"
lblSymbol = "Tl"
End Sub
Private Sub Label82_Click()
lblNumber = "82"
lblName = "Lead"
lblSymbol = "Pb"
End Sub
Private Sub Label83_Click()
lblNumber = "83"
lblName = "Bismuth"
lblSymbol = "Bi"
End Sub
Private Sub Label84_Click()
lblNumber = "84"
lblName = "Polonium"
lblSymbol = "Po"
End Sub
Private Sub Label85_Click()
lblNumber = "85"
lblName = "Astatine"
lblSymbol = "At"
End Sub
Private Sub Label86_Click()
lblNumber = "86"
lblName = "Radon"
lblSymbol = "Rn"
End Sub
Private Sub Label87_Click()
lblNumber = "87"
lblName = "Francium"
lblSymbol = "Fr"
End Sub
Private Sub Label88_Click()
lblNumber = "88"
lblName = "Radium"
lblSymbol = "Ra"
End Sub
Private Sub Label89_Click()
lblNumber = "89"
lblName = "Actinium"
lblSymbol = "Ac"
End Sub
Private Sub Label90_Click()
lblNumber = "90"
lblName = "Thorium"
lblSymbol = "Th"
End Sub
Private Sub Label91_Click()
lblNumber = "91"
lblName = "Protactinium"
lblSymbol = "Pa"
End Sub
Private Sub Label92_Click()
lblNumber = "92"
lblName = "Uranium"
lblSymbol = "U"
End Sub
Private Sub Label93_Click()
lblNumber = "93"
lblName = "Neptunium"
lblSymbol = "Np"
End Sub
Private Sub Label94_Click()
lblNumber = "94"
lblName = "Plutonium"
lblSymbol = "Pu"
End Sub
Private Sub Label95_Click()
lblNumber = "95"
lblName = "Americium"
lblSymbol = "Am"
End Sub
Private Sub Label96_Click()
lblNumber = "96"
lblName = "Curium"
lblSymbol = "Cm"
End Sub
Private Sub Label97_Click()
lblNumber = "97"
lblName = "Berkelium"
lblSymbol = "Bk"
End Sub
Private Sub Label98_Click()
lblNumber = "98"
lblName = "Californium"
lblSymbol = "Cf"
End Sub
Private Sub Label99_Click()
lblNumber = "99"
lblName = "Einsteinium"
lblSymbol = "Es"
End Sub
Private Sub Label100_Click()
lblNumber = "100"
lblName = "Fermium"
lblSymbol = "Fm"
End Sub
Private Sub Label101_Click()
lblNumber = "101"
lblName = "Mendelevium"
lblSymbol = "Md"
End Sub
Private Sub Label102_Click()
lblNumber = "102"
lblName = "Nobelium"
lblSymbol = "No"
End Sub
Private Sub Label103_Click()
lblNumber = "103"
lblName = "Lawrencium"
lblSymbol = "Lr"
End Sub
Download this snippet Add to My Saved Code
Periodic Table Comments

No comments have been posted about Periodic Table. Why not be the first to post a comment about Periodic Table.
Periodic Table

Periodic Table Comments

Post your comment

Difficulty
