Public mvarBaseProperty As String
Public Sub BaseFunction()
MsgBox “Hello world!”
End Sub
Public Property Let BaseProperty(ByVal VData As String)
mvarBaseProperty = VData
End Property
Public Property Get BaseProperty() As String
BaseProperty = mvarBaseProperty
End Property
Private Sub Command1_Click ()
Dim intX As Integer, intY As Integer, intZ As Integer
Dim frmNew(1 To 5) As New Form1
For Each intX In Collection
frmNew(intX).Show
frmNew(intX).WindowState = vbMinimized
'为了不让它们第一次以正常大小出现而
'创建最小化窗体,可改变
'上面两行的顺序。
Next
End Sub
Private Sub Form_Load() '测试
Dim i As Integer '测试
Dim x As Long '测试
x = 0 '测试
For i = 1 To 20 '测试
x = x + 2
Next i '测试
Debug.Print x '测试
End Sub '测试
Type SystemInfo
CPU As Variant
Memory As Long
DiskDrives1(25) As String '固定大小的数组。
DiskDrives2() As String '动态数组。
VideoColors As Integer
Cost As Currency
PurchaseDate As Variant
End Type
Private Sub Form_Load()
Dim i As Long
Dim j As Long
Dim SysInfo As SystemInfo
i = 10
Select Case i
Case 10, 20, 30: j = 10
Case 50 To 100: j = 100
Case Is >= 1000, 100: j = 1000
Case 1002, 201, Is < 1, 1001: j = 1
Case 1002, 11111 To 20111, Is < 1, 999 To 888, 1001: j = 1
Case Else: j = 99999
End Select
abc
End Sub
Sub abc()