Dim 출현, 맞춤, 틀림

Private Sub 네모_Click()
맞춤 = 맞춤 + 1
점수 = 점수 + 5
Label2.Caption = "맞춤:" + Str(맞춤)
Print Val(맞춤) * Val(점수)
End Sub

Private Sub Form_Click()
틀림 = 틀림 + 1
Label3.Caption = "틀림:" + Str(틀림)
End Sub



Private Sub Timer1_Timer()
네모.Left = Rnd * 3000
네모.Top = Rnd * 2500
출현 = 출현 + 1
Label1.Caption = "출현:" + Str(출현)
End Sub

---------------------------------------------------------
네모겜에서 점수 출력할려하는데
계속 점수가 밑으로 밑으로 가네요 뭐가 잘못된 건지 알려주세요

* 똥똥배님에 의해서 게시물 이동되었습니다 (2008-03-11 14:20)