سؤال لعباقرة الفيجوال

[hassanalhawy]

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Me.Hide()
        Dim r_t As Byte
        Randomize()
        r_t = Rnd() * 5
        If r_t = 1 Then Me.Show()
        If r_t = 2 Then Form2.Show()
        If r_t = 3 Then Form3.Show()
        If r_t = 4 Then Form4.Show()
        If r_t = 5 Then Form5.Show()
    End Sub