DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub ListBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
If KeyAscii = 13 Then
a = ListBox2.ListIndex
b = ListBox2.ListCount
If a <= b - 2 Then
ListBox2.ListIndex = ListBox2.ListIndex + 1
Else
ListBox2.ListIndex = 0
End If
End If
End Sub