Visual Basic Part 5 ( Keliling dan Luas Persegi Panjang )

Dim P As Integer
Dim L As Integer

Private Sub CMDK_Click()
    P = Val(TXTP.Text)
    L = Val(TXTL.Text)
    LBLK.Caption = 2 * (P + L)
End Sub

Private Sub CMDL_Click()
    LBLL.Caption = P * L
End Sub

Private Sub CMDR_Click()
    End
End Sub

Private Sub CMDU_Click()
    TXTP.Text = ""
    TXTL.Text = ""
    LBLK.Caption = ""
    LBLL.Caption = ""
    TXTP.SetFocus
End Sub

Private Sub Timer1_Timer()
    If Label1.Visible = True Then
        Label1.Visible = False
    Else
        Label1.Visible = True
    End If
        Label1.BackColor = RGB(250 * Rnd, 300 * Rnd, 200 * Rnd)
        TXTP.BackColor = RGB(250 * Rnd, 300 * Rnd, 200 * Rnd)
        TXTL.BackColor = RGB(250 * Rnd, 300 * Rnd, 200 * Rnd)
        LBLK.BackColor = RGB(250 * Rnd, 300 * Rnd, 200 * Rnd)
        LBLL.BackColor = RGB(250 * Rnd, 300 * Rnd, 200 * Rnd)
End Sub