Visual Basic NET ( 3)


- 2


:

Private Const _ As Integer = 10

Private (_) As cls ' cls

Public pict(_) As PictureBox '

Public __ As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

= Me

KeyPreview = True '

_.ReadOnly = True

Randomize() '

' -:

= New cls

Dim i As Integer

For i = 1 To _

(i) = New cls

Next i

_()

Timer1.Enabled = False ' " "

End Sub

 

Private Sub __Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

Handles _.Click

_()

Timer1.Enabled = True ' ,

End Sub

Private Sub _()

_.Text = 0 '

__ = _

__.Text = _

_.Focus()

._() '

Dim i As Integer

For i = 1 To _

(i)._() '

Next i

End Sub

' , :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

.() '