موضوع خفيف لعبة حلوة من كم سطر - نسخة قابلة للطباعة

كود :
Public Class Form1

Private HDir As Integer = -1

Private VDir As Integer = -1

Private Speed As Integer = 5

Private Life As Integer = 4

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

With Label1

.Left = 0

.Top = 0

.Text = Life

End With

With Timer1

.Interval = 100

.Enabled = True

End With

With Button1

.Width = 20

.Height = 20

.Text = ""

End With

With Button2

.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left

.Width = 75

.Height = 10

.Top = Me.Height - 60

.Text = ""

End With

End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

If e.X < (Me.Width - Button2.Width - 15) Then Button2.Left = e.X

End Sub

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

Button1.Left = Button1.Left + HDir * Speed

If Button1.Left <= 5 Then HDir = 1

If Button1.Left >= (Me.Width - Button1.Width - 15) Then HDir = -1

Button1.Top = Button1.Top + VDir * Speed

If Button1.Top <= 3 Then VDir = 1

If Button2.Top < (Button1.Top + Button1.Height) And Button2.Top > (Button1.Top) And Button2.Left < (Button1.Left + Button1.Width) And Button1.Left < (Button2.Left + Button2.Width) Then

VDir = -1

ElseIf Button1.Top > Me.Height Then

Life = Life - 1

If Life < 0 Then

Timer1.Enabled = False

MsgBox("Game Over")

End

End If

Button1.Left = 0

Button1.Top = 0

Label1.Text = Life

End If

End Sub

End Class