Codigo para visual basic

Proyecto

Private Sub MDIForm_Load()
Musica.Show
Musica.Visible = False
End Sub

Private Sub mnuAC_Click()
Cuestionario1.Show
End Sub

Private Sub mnuAE_Click()
Informacion.Show
End Sub

Private Sub mnuAS_Click()
If MsgBox("Desea Salir?", vbYesNo + vbQuestion, "Cerrar aplicación") = vbYes Then End
End Sub

Private Sub mnuCEB_Click()
Bocinas.Show
End Sub

Private SubmnuCEE_Click()
EscanerImpresora.Show
End Sub

Private Sub mnuCEG_Click()
Gabinete.Show
End Sub

Private Sub mnuCEM_Click()
Monitor.Show
End Sub

Private Sub mnuCER_Click()
Mouse.Show
End Sub

Private Sub mnuCET_Click()
Teclado.Show
End Sub

Private Sub mnuCIBios_Click()
ChipBIOS.Show
End Sub

Private Sub mnuCICd_Click()
CD.Show
End Sub

Private Sub mnuCIDd_Click()DiscoDuro.Show
End Sub

Private Sub mnuCIDr_Click()
DispositivosRefrigerantes.Show
End Sub

Private Sub mnuCiDvd_Click()
DVD.Show
End Sub

Private Sub mnuCIF_Click()
Floppy.Show
End Sub

Private Sub mnuCIFa_Click()
FuenteAlimentacion.Show
End Sub

Private Sub mnuCIJc_Click()
JumpersCables.Show
End Sub

Private Sub mnuCIM_Click()
Microprocesador.Show
End Sub

Private SubmnuCIRam_Click()
MemoriaRAM.Show
End Sub

Private Sub mnuCITga_Click()
TarjetaVideoSonido.Show
End Sub

Private Sub mnuCITm_Click()
MotherBoard.Show
End Sub

Private Sub mnuCITmd_Click()
TarjetaModem.Show
End Sub

Private Sub mnuCIUsb_Click()
USB.Show
End Sub

Informacion

Musica

Private Sub Form_Load()
MMControl1.DeviceType = WaveAudio
MMControl1.FileName ="C:\Users\Berta\Proyecto\musica\musica.wav"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub

Cuestionario1

Private Sub Form_Load()
iniciaropciones
End Sub

Sub iniciaropciones()
Dim X As Integer
For X = 0 To 2
optUno(X) = False
Next X
For X = 0 To 2
optDos(X) = False
Next X
For X = 0 To 2
opt3(X) = False
Next X
For X = 0 To 2opt4(X) = False
Next X
For X = 0 To 2
opt5(X) = False
Next X
For X = 0 To 2
opt6(X) = False
Next X
For X = 0 To 2
opt7(X) = False
Next X
For X = 0 To 2
opt8(X) = False
Next X
For X = 0 To 2
opt9(X) = False
Next X
For X = 0 To 2
opt10(X) = False
Next X
For X = 0 To 2
opt11(X) = FalseNext X
For X = 0 To 2
opt12(X) = False
Next X
For X = 0 To 2
opt13(X) = False
Next X
For X = 0 To 2
opt14(X) = False
Next X
For X = 0 To 2
opt15(X) = False
Next X
For X = 0 To 2
opt16(X) = False
Next X
For X = 0 To 2
opt17(X) = False
Next X
For X = 0 To 2
opt18(X) = False
Next X
For X =0 To 2
opt19(X) = False
Next X
For X = 0 To 2
opt20(X) = False
Next X
End Sub

Private Sub Frame9_DragDrop(Source As Control, X As Single, Y As Single)
If opt9(1) = True Then intC = intC + 1
End Sub

Private Sub opt10_Click(Index As Integer)
If opt10(2) = True Then intC = intC + 1
End Sub

Private Sub opt11_Click(Index As Integer)
If opt11(2) = True ThenintC = intC + 1
End Sub

Private Sub opt12_Click(Index As Integer)
If opt12(1) = True Then intC = intC + 1
End Sub

Private Sub opt13_Click(Index As Integer)
If opt13(0) = True Then intC = intC + 1
End Sub

Private Sub opt14_Click(Index As Integer)
If opt14(2) = True Then intC = intC + 1
End Sub

Private Sub opt15_Click(Index As Integer)
If opt15(1) = True Then intC = intC + 1
EndSub

Private Sub opt16_Click(Index As Integer)
If opt16(2) = True Then intC = intC + 1
End Sub

Private Sub opt17_Click(Index As Integer)
If opt17(1) = True Then intC = intC + 1
End Sub

Private Sub opt18_Click(Index As Integer)
If opt18(0) = True Then intC = intC + 1
End Sub

Private Sub opt19_Click(Index As Integer)
If opt18(1) = True Then intC = intC + 1
End Sub

Private Sub...