WAP to Build a computer system.

Private Sub Command1_Click()
Dim disk As String
Dim monitor As String
Dim proc As String
Dim str As String
str = ""
If Check1.Value = 1 Then str = str + Check1.Caption + Chr(13)
If Check2.Value = 1 Then str = str + Check2.Caption + Chr(13)
If Check3.Value = 1 Then str = str + Check3.Caption + Chr(13)
If Check4.Value = 1 Then str = str + Check4.Caption + Chr(13)
If Check5.Value = 1 Then str = str + Check5.Caption + Chr(13)
If Check6.Value = 1 Then str = str + Check6.Caption + Chr(13)
If Option1.Value = True Then
str = str + Option1.Caption + Chr(13)
ElseIf Option2.Value = True Then str = str + Option2.Caption + Chr(13)
ElseIf Option3.Value = True Then str = str + Option3.Caption + Chr(13)
ElseIf Option4.Value = True Then str = str + Option4.Caption + Chr(13)
ElseIf Option5.Value = True Then str = str + Option5.Caption + Chr(13)
ElseIf Option6.Value = True Then str = str + Option6.Caption + Chr(13)
End If
If Option7.Value = ture Then
str = str + Option7.Caption + Chr(13)
ElseIf Option8.Value = True Then str = str + Option8.Caption + Chr(13)
ElseIf Option9.Value = True Then str = str + Option9.Caption + Chr(13)
End If
MsgBox "You have selected" & Chr(13) & str
End Sub

Private Sub Command2_Click()
End
End Sub



Posted by: Wasim Javed