@Away-
@Cookie.
Like this?
Wait i got it thanx
@Cho Chang Request close.
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
02
03
Dim max As Integer = 5000
04
Dim rnd As New Random
05
Dim rand As Integer = rnd.Next(10, max + 1)
06
Dim i As Integer = 1
07
Dim number(max - 1) As Integer
08
09
For i = 0 To max - 1
10
If number(i) = rand Then
11
rand = rnd.Next(1, max + 1)
12
i = -1
13
ElseIf number(i) = 0 Then
14
number(i) = rand
15
rand = rnd.Next(1, max + 1)
16
If i = max - 1 Then
17
Exit For
18
End If
19
i = -1
20
End If
21
Next
22
Timer1.Interval = number(i)
23
i += 1
24
25
ChangeImage()
26
End Sub
27
28
Private Sub ChangeImage()
29
30
Static Dim iImage1 As Integer
31
32
Select Case iImage1
33
Case 0
34
35
pbNewImage.Visible = True
36
pbNewImage.Image = My.Resources.imagename
37
iImage1 += 1
38
Case 1
39
40
pbNewImage.Visible = True
41
pbNewImage.Image = My.Resources.imagename
42
iImage1 += 1
43
Case 2
44
45
pbNewImage.Visible = True
46
pbNewImage.Image = My.Resources.imagename
47
iImage1 += 1
48
Case 3
49
50
pbNewImage.Visible = True
51
pbNewImage.Image = My.Resources.imagename
52
iImage1 += 1
53
Case 4
54
55
pbNewImage.Visible = True
56
pbNewImage.Image = My.Resources.imagename
57
iImage1 = 0
58
59
End Select
60
End Sub
61
62
Private Sub btnView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnView.Click
63
Timer1.Start()
64
End Sub