Se intendi in VB6 eccoti un'abbozzo!
codice:
Private secondi As Integer
Private inizio As Boolean
Private minuti As Integer
Private conto As Double

Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub

Private Sub Form_Load()
        secondi = 0
        inizio = True
        minuti = 0
        conto = 0
        Timer1.Interval = 1000
        Text1.Text = "0"
End Sub


Private Sub Timer1_Timer()
    secondi = secondi + 1
    inizio = False
    If secondi = 60 Then
        secondi = 0
        minuti = minuti + 1
    End If
     
    If minuti Mod 10 = 0 And minuti > 0 And secondi = 0 Then
        conto = conto + 0.5
        Text2.Text = conto
    End If
    If minuti <> 0 Then
        Text1.Text = minuti & "." & secondi
    Else
        Text1.Text = secondi
    End If
End Sub


Nota del moderatore:
Sypher i tag per il codice

Nota di Sypher:
Li ho messi un secondo dopo