- Katılım
- 20 Ekim 2005
- Mesajlar
- 502
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub ComboBox1_Change()
Unload Me
Select Case ComboBox1.Value
Case Is = "Userform2"
UserForm2.Show
Case Is = "Userform3"
UserForm3.Show
Case Is = "Userform4"
UserForm4.Show
Case Is = "Userform5"
UserForm5.Show
Case Is = "Userform6"
UserForm6.Show
End Select
End Sub