[Enter]
Private Sub Command2_Click()
frmsa = Val(Text1.Text)
seca = (Val(Text2.Text) * 30)
mina = (Val(Text3.Text) * (60 * 30))
hra = ((Val(Text4.Text) * (60 * 60 * 3)) * 10)
'hra = hra * 10
Text13.Text = frmsa + mina + seca + hra
frmsb = Val(Text5.Text)
secb = (Val(Text6.Text) * 30)
minb = (Val(Text7.Text) * (60 * 30))
hrb = (Val(Text8.Text) * (60 * 60 * 3))
hrb = hrb * 10
Text14.Text = frmsb + minb + secb + hrb
End Sub
[Offset]
Private Sub Command1_Click()
offset = Val(Text13.Text) - Val(Text14.Text)
Text15.Text = offset
 If offset >= 108000 Then
 c = 0
 Do
   offset = offset - 108000
   c = c + 1
   Loop Until offset < 108000
   Text20.Text = c
   Else
   Text20.Text = "00"
 End If
 If offset >= 1800 Then
 c = 0
 Do
   offset = offset - 1800
   c = c + 1
   Loop Until offset < 1800
   Text19.Text = c
   Else
   Text19 = "00"
 End If
 If offset >= 30 Then
 c = 0
   Do
   offset = offset - 30
   c = c + 1
   Loop Until offset < 30
   Text18.Text = c
   Else
   Text18 = "00"
 End If
 If offset > 0 Then
 Text17.Text = offset
 Else
 Text17 = "00"
 End If
End Sub
[A - offset]
Private Sub Command3_Click()
Dim c



newtc = Val(Text13.Text) - Val(Text15.Text)
 If newtc < 0 Then
 newtc = Val(Text13.Text) + Val(Text15.Text)
 End If
Text16.Text = newtc    'new timecode in frames
 If newtc >= 108000 Then
  c = 0
  Do
     newtc = newtc - 108000
     c = c + 1
   Loop Until newtc < 108000
   Text12.Text = c
   Else
   Text12.Text = "00"
  End If
 
 If newtc >= 1800 Then
  c = 0
  Do
     newtc = newtc - 1800
     c = c + 1
   Loop Until newtc < 1800
   Text11.Text = c
   Else
   Text11.Text = "00"
  End If
 If newtc >= 30 Then
  c = 0
  Do
   newtc = newtc - 30
   c = c + 1
   Loop Until newtc < 30
   Text10.Text = c
   Else
   Text10.Text = "00"
  End If
   If newtc > 0 Then
   Text9.Text = newtc
   Else
   Text9.Text = "00"
   End If

End Sub