Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MsgBox(#34;开机已过毫秒{开机时间.已过毫秒 }")
        MsgBox(#34;开机时间:{开机时间.开机时间}")
    End Sub

    Function 开机时间() As (已过毫秒 As Integer, 开机时间 As DateTime)
        Dim 已过 As Integer = Environment.TickCount
        Dim 开机 As Date = DateTime.Now.AddMilliseconds(-已过)
        Return (已过, 开机)
    End Function

End Class

在Visual Studio 2019中使用vb.net编小程序的时候，因为提醒窗体数量不定，设想着能创建窗体可变数组来设置提醒，代码如下：

Public frmtip() As Frmtips ‘初始化窗体可变数组

Private Sub LoadFrmTips（）

ReDim Preserve frmtip(2) ‘假设已定义可变数组frmtip(1)，重新定义frmtip(2)

点击“了解更多”获取工具

我是编程乐趣，一个10年.Net开发经验老程序员，点击右上方“关注”，每天为你分享开源项目和编程知识。

序言故事

与妻子聊起餐厅的经营之道已经过去一个月了，具体内容请看“.net框架介绍”。

Visual Basic（简称