在Visual Basic 6.0（VB6.0）中创建一个计时程序，可以通过以下步骤实现：
打开VB6.0并创建新工程
打开Microsoft Visual Basic 6.0中文版。
选择“标准 EXE”，然后单击“打开”按钮，进入软件界面。
选择“新建”来创建一个新的标准工程。
设计用户界面
在窗体上添加三个文本框（TextBox），分别用于显示时、分、秒。
添加三个命令按钮（CommandButton），分别用于“设置时间”、“开始”和“结束”。
添加一个标签（Label）用于显示当前时间。
添加一个计时器控件（Timer），并将其Interval属性设置为1000（毫秒），Enabled属性初始设置为False。
编写代码
设置时间：
双击“设置时间”按钮，弹出一个输入框，用户可以输入倒计时的分钟数。
将输入的分钟数转换为秒数，并保存在变量中。
开始计时：
双击“开始”按钮，将计时器控件的Enabled属性设置为True，开始计时。
在计时器的Timer事件中，每秒更新一次时间显示，并减少倒计时的秒数。
结束计时：
双击“结束”按钮，将计时器控件的Enabled属性设置为False，停止计时。
```vb
' 定义全局变量
Dim h As Integer, m As Integer, s As Integer ' 分别存储时、分、秒
Dim timerInterval As Integer ' 计时器间隔时间，单位为毫秒
Dim countdown As Integer ' 倒计时总秒数
' 设置时间
Private Sub Command1_Click（）
Dim temp As String
temp = InputBox（"请输入倒计时数（以分钟为单位）:", "设置倒计时"）
countdown = Val（temp） * 60 ' 将分钟转换为秒
h = countdown \ 3600 ' 计算小时数
m = （countdown Mod 3600） \ 60 ' 计算分钟数
s = countdown Mod 60 ' 计算秒数
Label1.Caption = Format（h, "00"） & ":" & Format（m, "00"） & ":" & Format（s, "00"）
End Sub
' 开始计时
Private Sub Command2_Click（）
Timer1.Enabled = True
Label1.Caption = Format（h, "00"） & ":" & Format（m, "00"） & ":" & Format（s, "00"）
End Sub
' 结束计时
Private Sub Command3_Click（）
Timer1.Enabled = False
End Sub
' 计时器事件处理
Private Sub Timer1_Timer（）
If countdown > 0 Then
s = s - 1
If s < 0 Then
s = 59
m = m - 1
If m < 0 Then
m = 59
h = h - 1
If h < 0 Then
h = 23
' 倒计时结束
Timer1.Enabled = False
MsgBox "时间到!"
Label1.Caption = "00:00:00"
End If
End If
End If
Label1.Caption = Format（h, "00"） & ":" & Format（m, "00"） & ":" & Format（s, "00"）
End If
End Sub
```
建议
确保在编写代码时，所有控件的属性和变量都已正确设置。
在实际应用中，可能需要对代码进行进一步的优化和错误处理。
如果需要更复杂的功能，如多语言支持或更精美的界面设计，可以考虑使用更现代的编程环境和工具。