Diklogi

Code programnya :

Dim hari As String

Private Sub Command1_Click()
If hari = "Hujan" Then
    MsgBox "Saya bawa payung"
ElseIf hari = "tidak hujan" Then
    MsgBox "tidak bawa payung"
End If
End Sub

Private Sub Option1_Click()
hari = "Hujan"
End Sub

Private Sub Option2_Click()
hari = "tidak hujan"
End Sub

Salam ilmu pengetahuan ^^