DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
If ListBox1.ListIndex < ListBox1.ListCount - 1 Then ListBox1.ListIndex = ListBox1.ListIndex + 1
If ListBox1.ListIndex > 0 Then ListBox1.ListIndex = ListBox1.ListIndex - 1
Private Sub CommandButton2_Click()
If UserForm3.ListBox1.ListIndex < UserForm3.ListBox1.ListCount - 1 Then
UserForm3.ListBox1.ListIndex = UserForm3.ListBox1.ListIndex + 1
End If
UserForm_Initialize
End Sub
Private Sub CommandButton3_Click()
If UserForm3.ListBox1.ListIndex < UserForm3.ListBox1.ListCount - 1 Then
UserForm3.ListBox1.ListIndex = UserForm3.ListBox1.ListIndex - 1
End If
UserForm_Initialize
End Sub