Is anyone here good at Visual Basic?

[JYZE]

if anyone has experience or is a real pro, holla at this thread, lol i need some help, my final assignment for a computer class is proper, its just this one lil bug thats pissing me off, ill post the code later on today, thnx in advance

Private Sub CmbRaptorRoster_Change()
Dim strPlayerNames(0 To 13) As String
PlayerNames(0) = "Andrea Bargnani"
PlayerNames(1) = "Maceo Baston"
PlayerNames(2) = "Chris Bosh"
PlayerNames(3) = "Primoz Brezec"
PlayerNames(4) = "Jose Calderon"
PlayerNames(5) = "Carlos Delfino"
PlayerNames(6) = "T.J. Ford"
PlayerNames(7) = "Jorge Garbajosa"
PlayerNames(8) = "Joey Graham"
PlayerNames(9) = "Kris Humphries"
PlayerNames(10) = "Jason Kapono"
PlayerNames(11) = "Jamario Moon"
PlayerNames(12) = "Rasho Nesterovic"
PlayerNames(13) = "Anthony Parker"

End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub cmdOk_Click()
If strPlayerNames = (0) Then
img1.Visible = True
lblStats.Caption = "PPG 6.4 RPG 1.4 APG 0.4 EFF 4#    " & "                               Born: Oct26 , 1985      " & "    Height 7 - 0      " & "                      Weight 250 lbs    " & "              From: Italy    " & "                     Years Pro: 1    "
lblStats.BackStyle = 1

ElseIf strPlayerNames = (1) Then
img2.Visible = True
lblStats.Caption = "PPG 0.0 RPG 0.00 APG 0.0 EFF + 1.00" & "                              Born: May 29, 1975      " & "    Height: 6 - 10    " & "                      Weight: 230  lbs  " & "              College: Michigan " & "                   Years Pro: 2   "
lblStats.BackStyle = 1

End If
End Sub

andrea bargnani works, but the second dude doesnt

[JYZE]

bumpin it

[JYZE]

nvm i fixed it