Statement-statement

1. With statement
Syntax:
With object
[statements]
End with

Example:

With MyLabel
    .Height = 2000
    .Width = 2000
    .Caption = "This is MyLabel"
End With 

2. While...Wend statement

Mengeksekusi serangkaian statement / pernyataan selama kondisi yang diberikan benar.

Syntax:

While condition

[statements]

Wend

Example:

3. Type statement

Digunakan pada level modul untuk mendefinisikan tipe data yang didefenisikan pengguna

memuat satu atau lebih elemen-elemen.

Example:

Type EmployeeRecord    ' Create user-defined type.
    ID As Integer    ' Define elements of data type.
    Name As String * 20
    Address As String * 30
    Phone As Long
    HireDate As Date
End Type
Sub CreateRecord()
    Dim MyRecord As EmployeeRecord    ' Declare variable.

    ' Assignment to EmployeeRecord variable must occur in a procedure.
    MyRecord.ID = 12003    ' Assign a value to an element.
End Sub

Syntax:

4. Sub statement

Example:

' Sub procedure definition. ' Sub procedure with two arguments. Sub SubComputeArea(Length, TheWidth) Dim Area As Double ' Declare local variable. If Length = 0 Or TheWidth = 0 Then ' If either argument = 0. Exit Sub ' Exit Sub immediately. End If Area = Length * TheWidth ' Calculate area of rectangle. Debug.Print Area ' Print Area to Debug window. End Sub   5. Enum statement Example: Public Enum InterfaceColors icMistyRose = &HE1E4FF& icSlateGray = &H908070& icDodgerBlue = &HFF901E& icDeepSkyBlue = &HFFBF00& icSpringGreen = &H7FFF00& icForestGreen = &H228B22& icGoldenrod = &H20A5DA& icFirebrick = &H2222B2& End Enum   6. Const statement Mendeklarasikan konstanta / ketetapan untuk digunakan sebagai pengganti huruf (literal)   Example: ' Constants are Private by default. Const MyVar = 459 ' Declare Public constant. Public Const MyString = "HELP" ' Declare Private Integer constant. Private Const MyInt As Integer = 5 ' Declare multiple constants on same line. Const MyStr = "Hello", MyDouble As Double = 3.4567

 7. Time statement

Mengatur waktu sistem.

Contoh:

Dim MyTime
MyTime = #4:35:17 PM#    ' Assign a time.
Time = MyTime    ' Set system time to MyTime.

8. Private statement

Digunakan pada level modul untuk mendeklarasikan variabel-variabel private dan

mengalokasikan ruang penyimpanan.

Pernyataan private digunakan di level modul untuk mendeklarasikan variabel sebagai

private, yaitu mereka hanya tersedia bagi modul yang dimana mereka dideklarasikan.

Contoh:

Private Number As Integer    ' Private Integer variable.
Private NameArray(1 To 5) As String    ' Private array variable.
' Multiple declarations, two Variants and one Integer, all Private.
Private MyVar, YourVar, ThisVar As Integer