[العزابي]

الحمد لله بعد المعاناه الشديدة وعصر المخيخ لقيت فكرة مجنونة عند واحد أجنبي وبسيطة مرة هههههههه

وهي أن أعمل كم فورم يعني 5 فورم . ثم ادخل الكود التالي في بوتون

كود :

Dim Random As Integer
Random = CInt(Int(5 * Rnd() + 2))
If Random = 2 Then
Dim Form As New Form2
Form.Show()
ElseIf Random = 3 Then
Dim Form As New Form3
Form.Show()
ElseIf Random = 4 Then
Dim Form As New Form4
Form.Show()
ElseIf Random = 5 Then
Dim Form As New Form5
Form.Show()
End If

طبعاً في كل فورم للقاعدة نغير الأستعلام RND() ونضرب في 3 .. والفورم الاخر نغير في استعلامه بالضرب في 8 وهاكذا


شكرا وتحياتي