Çalışmıyor Hazır silah valuesi itemleri

KatreiMatem Legend:3271

JOYYaMYaMLaR Legend:3269    

JustApplica Legend:3270

EM4A1 Ultimate Legend:3263

 Uzas Legend:7168

EM4A1 Ultimate Alsancak:3262

Utx ultimate black:7166

Hk-417 ultimate black:3260 

Zaitsev ultimate black+:6074

Zaitsev ultimate black:6073

AKEI-47 Ultimate Pro:3206

AKEI-47 Ultimate:3209 

EM4Aİ Ultimate Pro:3207

Deser Eagle 50 black:1046

Mkg 6 black:9093

MK-6G Alsancak:9095

 K3-TK Alsancak:2104

 Dim item As String = Me.ListBox1.SelectedItem
If item="KatreiMatem Legend:3271" Then
If GetAsyncKeyState(Keys.D1) Then
Textbox1.text="3271"
ElseIf GetAsyncKeyState(Keys.D2) Then
Textbox2.text.text="3271"
ElseIf GetAsyncKeyState(Keys.D3) Then
Textbox3.text="3271"
ElseIf GetAsyncKeyState(Keys.D4) Then
Textbox4.text="3271"
ElseIf GetAsyncKeyState(Keys.D5) Then
Textbox5.text="3271"
ElseIf GetAsyncKeyState(Keys.D6) Then
Textbox6.text="3271"
ElseIf GetAsyncKeyState(Keys.D7) Then
Textbox7.text="3271"
End If
ElseIf item="JOYYaMYaMLaR Legend:3269" Then
If GetAsyncKeyState(Keys.D1) Then
Textbox1.text="3269"
ElseIf GetAsyncKeyState(Keys.D2) Then
Textbox2.text="3269"
ElseIf GetAsyncKeyState(Keys.D3) Then
Textbox3.text="3269"
ElseIf GetAsyncKeyState(Keys.D4) Then
Textbox4.text="3269"
ElseIf GetAsyncKeyState(Keys.D5) Then
Textbox5.text="3269"
ElseIf GetAsyncKeyState(Keys.D6) Then
Textbox6.text="3269"
ElseIf GetAsyncKeyState(Keys.D7) Then
Textbox7.text="3269"
End If
ElseIf item="JustApplica Legend:3270" Then
If GetAsyncKeyState(Keys.D1) Then
Textbox1.text="3270"
ElseIf GetAsyncKeyState(Keys.D2) Then
Textbox2.text="3270"
ElseIf GetAsyncKeyState(Keys.D3) Then
Textbox3.text="3270"
ElseIf GetAsyncKeyState(Keys.D4) Then
Textbox4.text="3270"
ElseIf GetAsyncKeyState(Keys.D5) Then
Textbox5.text="3270"
ElseIf GetAsyncKeyState(Keys.D6) Then
Textbox6.text="3270"
ElseIf GetAsyncKeyState(Keys.D7) Then
Textbox7.text="3270"
End If
ElseIf item="EM4A1 Ultimate Legend:3263" Then
If GetAsyncKeyState(Keys.D1) Then
Textbox1.text="3263"
ElseIf GetAsyncKeyState(Keys.D2) Then
Textbox2.text="3263"
ElseIf GetAsyncKeyState(Keys.D3) Then
Textbox3.text="3263"
ElseIf GetAsyncKeyState(Keys.D4) Then
Textbox4.text="3263"
ElseIf GetAsyncKeyState(Keys.D5) Then
Textbox5.text="3263"
ElseIf GetAsyncKeyState(Keys.D6) Then
Textbox6.text="3263"
ElseIf GetAsyncKeyState(Keys.D7) Then
Textbox7.text="3263"
End If
ElseIf item="Uzas Legend:7168" Then
If GetAsyncKeyState(Keys.D1) Then
Textbox1.text="7168"
ElseIf GetAsyncKeyState(Keys.D2) Then
Textbox2.text="7168"
ElseIf GetAsyncKeyState(Keys.D3) Then
Textbox3.text="7168"
ElseIf GetAsyncKeyState(Keys.D4) Then
Textbox4.text="7168"
ElseIf GetAsyncKeyState(Keys.D5) Then
Textbox5.text="7168"
ElseIf GetAsyncKeyState(Keys.D6) Then
Textbox6.text="7168"
ElseIf GetAsyncKeyState(Keys.D7) Then
Textbox7.text="7168"
End If
ElseIf item="EM4A1 Ultimate Alsancak:3262" Then
If GetAsyncKeyState(Keys.D1) Then
Textbox1.text="3262"
ElseIf GetAsyncKeyState(Keys.D2) Then
Textbox2.text="3262"
ElseIf GetAsyncKeyState(Keys.D3) Then
Textbox3.text="3262"
ElseIf GetAsyncKeyState(Keys.D4) Then
Textbox4.text="3262"
ElseIf GetAsyncKeyState(Keys.D5) Then
Textbox5.text="3262"
ElseIf GetAsyncKeyState(Keys.D6) Then
Textbox6.text="3262"
ElseIf GetAsyncKeyState(Keys.D7) Then
Textbox7.text="3262"
End If
ElseIf item="Utx ultimate black:7166" Then
If GetAsyncKeyState(Keys.D1) Then
Textbox1.text="7166"
ElseIf GetAsyncKeyState(Keys.D2) Then
Textbox2.text="7166"
ElseIf GetAsyncKeyState(Keys.D3) Then
Textbox3.text="7166"
ElseIf GetAsyncKeyState(Keys.D4) Then
Textbox4.text="7166"
ElseIf GetAsyncKeyState(Keys.D5) Then
Textbox5.text="7166"
ElseIf GetAsyncKeyState(Keys.D6) Then
Textbox6.text="7166"
ElseIf GetAsyncKeyState(Keys.D7) Then
Textbox7.text="7166"
End If
ElseIf item="Hk-417 ultimate black:3260" Then
If GetAsyncKeyState(Keys.D1) Then
Textbox1.text="3260"
ElseIf GetAsyncKeyState(Keys.D2) Then
Textbox2.text="3260"
ElseIf GetAsyncKeyState(Keys.D3) Then
Textbox3.text="3260"
ElseIf GetAsyncKeyState(Keys.D4) Then
Textbox4.text="3260"
ElseIf GetAsyncKeyState(Keys.D5) Then
Textbox5.text="3260"
ElseIf GetAsyncKeyState(Keys.D6) Then
Textbox6.text="3260"
ElseIf GetAsyncKeyState(Keys.D7) Then
Textbox7.text="3260"
End If
ElseIf item="Zaitsev ultimate black+:6074" Then
If GetAsyncKeyState(Keys.D1) Then
Textbox1.text="6074"
ElseIf GetAsyncKeyState(Keys.D2) Then
Textbox2.text="6074"
ElseIf GetAsyncKeyState(Keys.D3) Then
Textbox3.text="6074"
ElseIf GetAsyncKeyState(Keys.D4) Then
Textbox4.text="6074"
ElseIf GetAsyncKeyState(Keys.D5) Then
Textbox5.text="6074"
ElseIf GetAsyncKeyState(Keys.D6) Then
Textbox6.text="6074"
ElseIf GetAsyncKeyState(Keys.D7) Then
Textbox7.text="6074"
End If
Zaitsev ultimate black:6073
If GetAsyncKeyState(Keys.D1) Then
Textbox1.text="6074"
ElseIf GetAsyncKeyState(Keys.D2) Then
Textbox2.text="6074"
ElseIf GetAsyncKeyState(Keys.D3) Then
Textbox3.text="6074"
ElseIf GetAsyncKeyState(Keys.D4) Then
Textbox4.text="6074"
ElseIf GetAsyncKeyState(Keys.D5) Then
Textbox5.text="6074"
ElseIf GetAsyncKeyState(Keys.D6) Then
Textbox6.text="6074"
ElseIf GetAsyncKeyState(Keys.D7) Then
Textbox7.text="6074"
End If
ElseIf item="AKEI-47 Ultimate Pro:3206" Then
If GetAsyncKeyState(Keys.D1) Then
Textbox1.text="3206"
ElseIf GetAsyncKeyState(Keys.D2) Then
Textbox2.text="3206"
ElseIf GetAsyncKeyState(Keys.D3) Then
Textbox3.text="3206"
ElseIf GetAsyncKeyState(Keys.D4) Then
Textbox4.text="3206"
ElseIf GetAsyncKeyState(Keys.D5) Then
Textbox5.text="3206"
ElseIf GetAsyncKeyState(Keys.D6) Then
Textbox6.text="3206"
ElseIf GetAsyncKeyState(Keys.D7) Then
Textbox7.text="3206"
End If
ElseIf item="AKEI-47 Ultimate:3209" Then
 If GetAsyncKeyState(Keys.D1) Then
Textbox1.text="3209"
ElseIf GetAsyncKeyState(Keys.D2) Then
Textbox2.text="3209"
ElseIf GetAsyncKeyState(Keys.D3) Then
Textbox3.text="3209"
ElseIf GetAsyncKeyState(Keys.D4) Then
Textbox4.text="3209"
ElseIf GetAsyncKeyState(Keys.D5) Then
Textbox5.text="3209"
ElseIf GetAsyncKeyState(Keys.D6) Then
Textbox6.text="3209"
ElseIf GetAsyncKeyState(Keys.D7) Then
Textbox7.text="3209"
End If
ElseIf item="EM4Aİ Ultimate Pro:3207" Then
If GetAsyncKeyState(Keys.D1) Then
Textbox1.text="3207"
ElseIf GetAsyncKeyState(Keys.D2) Then
Textbox2.text="3207"
ElseIf GetAsyncKeyState(Keys.D3) Then
Textbox3.text="3207"
ElseIf GetAsyncKeyState(Keys.D4) Then
Textbox4.text="3207"
ElseIf GetAsyncKeyState(Keys.D5) Then
Textbox5.text="3207"
ElseIf GetAsyncKeyState(Keys.D6) Then
Textbox6.text="3207"
ElseIf GetAsyncKeyState(Keys.D7) Then
Textbox7.text="3207"
End If
ElseIf item="Desert Eagle 50 black:1046" Then
If GetAsyncKeyState(Keys.D1) Then
Textbox5.text="1046"
End If
ElseIf item="Mkg 6 black:9093" Then
If GetAsyncKeyState(Keys.D1) Then
Textbox7.text="9093"
End If
ElseIf item="MK-6G Alsancak:9095" Then
If GetAsyncKeyState(Keys.D1) Then
Textbox7.text="9095"
End If
 K3-TK Alsancak:2104
If GetAsyncKeyState(Keys.D1) Then
Textbox6.text="2104"
End If
End If