VB高手帮我优化一下这段代码

Option Explicit

Private Declare Function Shell_NotifyIcon Lib "shell32.dll" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Const NIM_ADD = &H0
Const NIM_DELETE = &H2
Const NIF_ICON = &H2
Const NIF_MESSAGE = &H1
Const NIF_TIP = &H4
Const WM_MOUSEMOVE = &H200
Const WM_LBUTTONDBLCLK = &H203
Private Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Dim tray As NOTIFYICONDATA

Sub main()
Dim i, j As Long
i = Val(Text1.Text)
j = Val(Text2.Text)
If j >= 60 Then
Text1.Text = i + j \ 60
Text2.Text = j Mod 60
End If
End Sub

Private Sub Command1_Click()
Label2.Caption = "状态：已启动 - OK 启动时间：" & Time
Timer2.Enabled = True
Command2.Enabled = True
Call main
End Sub

Private Sub Com

vb高手在帮我看一下这段代码．谢谢了． 帮我看一下这段VB代码？ (VB)谁帮我翻译一下这段代码?~~~~ 谁用VB帮我算一下这段代码 请VB高手帮我看看这段代码 请高手帮我看一下我的这段VB代码错在哪了啊?谢谢! 高手帮我看一下下边这段java代码 高手帮我看一下这段代码 vb下标越界问题,快考试了，请帮我看一下这段代码 高手帮我看看这段VB代码？解释一下 ～谢谢 了 ～在线等