Visual Basic Part 11 ( Kue Bandung --> Array )

Option Explicit
Dim ukurankue As String
Dim ketebalankue As String
Dim tempat As String

Private Sub Cmdk_Click()
    End
End Sub

Private Sub Cmdkue_Click()
    Dim pesan As String
    Dim I As Integer
    pesan = "Kue Bandung" + vbCr + "Ukuran"
    pesan = pesan + ukurankue + ketebalankue + vbCr
    pesan = pesan + tempat + vbCr
    pesan = pesan + "Isi kue terdiri dari :" + vbCr
    For I = 0 To 2
        If Chkisi(I).Value = vbChecked Then
        pesan = pesan + Chkisi(I).Caption + vbCr
        End If
    Next I
    MsgBox pesan, vbOKOnly, "Pesanan Anda"
End Sub


Private Sub Form_Load()
    ukurankue = "Besar"
    ketebalankue = "Tebal"
    tempat = "Dimakan di tempat"
End Sub

Private Sub OptKetebalan_Click(Index As Integer)
    ketebalankue = Optketebalan(Index).Caption
End Sub

Private Sub Opttempat_Click(Index As Integer)
    tempat = Opttempat(Index).Caption
End Sub

Private Sub OptUkuran_Click(Index As Integer)
    ukurankue = OptUkuran(Index).Caption
End Sub