'program underconstuction

-------------------------------------------------------
Option Explicit

'setting variables for player 1,2,3,4
'setting for players score

	Dim Plyr1Scr As Integer
	Dim Plyr2Scr As Integer
	Dim Plyr3Scr As Integer
	Dim Plyr4Scr As Integer

'setting intCnt

	Dim intCnt As Integer
	Dim intQ As Integer
	Dim i As Integer
	Dim q As Integer

'setting for players name

	Dim Plyr1 As String
	Dim Plyr2 As String
	Dim Plyr3 As String
	Dim Plyr4 As String
-------------------------------------------------------
Private Sub Command1_Click()

'incrementing player 1's score and displaying its value

	Plyr1Scr = Plyr1Scr + 5
	Label5.Caption = Plyr1Scr

End Sub
-------------------------------------------------------
Private Sub Command2_Click()

'incrementing player 2's score and displaying its value

	Plyr2Scr = Plyr2Scr + 5
	Label6.Caption = Plyr2Scr

End Sub
-------------------------------------------------------
Private Sub Command3_Click()

'incrementing player 3's score and displaying its value

	Plyr3Scr = Plyr3Scr + 5
	Label7.Caption = Plyr3Scr

End Sub
-------------------------------------------------------
Private Sub Command4_Click()

'incrementing player 4's score and displaying its value

	Plyr4Scr = Plyr4Scr + 5
	Label8.Caption = Plyr4Scr

End Sub
-------------------------------------------------------
Private Sub Form_Load()

'setting initial values of player's score into 0

	Plyr1Scr = 0
	Plyr2Scr = 0
	Plyr3Scr = 0
	Plyr4Scr = 0

'setting the display into 0

	Label5.Caption = "0"
	Label6.Caption = "0"
	Label7.Caption = "0"
	Label8.Caption = "0"
	
'for the players 1,2,3,4 name
	
	Plyr1 = InputBox("Enter the name of Player 1")
	Plyr2 = InputBox("Enter the name of Player 2")
	Plyr3 = InputBox("Enter the name of Player 3")
	Plyr4 = InputBox("Enter the name of Player 4")

'putting the player 1,2,3,4 name into the label

	Label1.Caption = "  " & Plyr1
	Label2.Caption = "  " & Plyr2
	Label3.Caption = "  " & Plyr3
	Label4.Caption = "  " & Plyr4
	
	Label12.Caption = " "
	Label13.Caption = " "
	
'setting time interval for the timer
	
Timer1.Interval = 1000

'calling the function Start


StartTimer
Func0

For i = 1 To 3
q = i
Next i

End Sub
---------------------------------------------------
Private Sub StartTimer()

Timer1.Enabled = True
intCnt = 6
For i = 1 To 3
Next i

End Sub
---------------------------------------------------
Private Sub Func0()

Label13.Caption = "HELLO"
	
End Sub
---------------------------------------------------
Private Sub Func1(q)

If q = 1 Then
Label13.Caption = "HI"
Label12.Caption = " "
End If

If q = 2 Then
Label13.Caption = "WAZUP!"
End If

If q = 3 Then
Label13.Caption = "HOW RU?"
Label12.Caption = " "
End If

End Sub
---------------------------------------------------
Private Sub Timer1_Timer()

If intCnt = 0 Then
'Call the function here
Func1 (q)

Else
intCnt = intCnt - 1
Label12.Caption = intCnt
End If

End Sub