Diseño

Private Sub CmdArquitectura_Click()
RtbArte.FileName = ("d:\proyecto\colonia2" & ".rtf")
PicArte.Picture = LoadPicture("d:\proyecto\arte3" & ".bmp")
End Sub

Private Sub CmdArte_Click()
CmdColonial.Visible = False
CmdRomanticismo.Visible = False
CmdModernismo.Visible = False
CmdRealismo.Visible = False
CmdEscultura.vsible = TrueCmdArquitectura.Visible = True
CmdPintura.Visible = True
RtbArte.FileName = ("d:\proyecto\Arte4" & ".rtf")
PicArte.Picture = LoadPicture("d:\proyecto\lite3" & ".bmp")
End Sub

Private Sub CmdColonial_Click()
RtbArte.FileName = ("d:\proyecto\Arte2" & ".rtf")
PicArte.Picture = LoadPicture("d:\proyecto\lite1" & ".bmp")
End Sub

Private Sub CmdEscultura_Click()RtbArte.FileName = ("d:\proyecto\colonia" & ".rtf")
PicArte.Picture = LoadPicture("d:\proyecto\arte2" & ".bmp")
End Sub

Private Sub CmdHistoria_Click()
CmdColonial.Visible = True
CmdRomanticismo.Visible = True
CmdModernismo.Visible = True
CmdRealismo.Visible = True
RtbArte.FileName = ("d:\proyecto\Arte" & ".rtf")
PicArte.Picture =LoadPicture("d:\proyecto\lite" & ".bmp")

End Sub

Private Sub CmdModernismo_Click()
RtbArte.FileName = ("d:\proyecto\Arte4" & ".rtf")
PicArte.Picture = LoadPicture("d:\proyecto\lite3" & ".bmp")
End Sub

Private Sub CmdPintura_Click()
RtbArte.FileName = ("d:\proyecto\colonia1" & ".rtf")
PicArte.Picture = LoadPicture("d:\proyecto\arte1" & ".bmp")
End Sub

PrivateSub CmdRealismo_Click()
RtbArte.FileName = ("d:\proyecto\Arte5" & ".rtf")
PicArte.Picture = LoadPicture("d:\proyecto\lite4" & ".bmp")
End Sub

Private Sub CmdRegresar_Click()
FrmPrincipal.Show
FrmArte.Visible = False
End Sub

Private Sub CmdRomanticismo_Click()
RtbArte.FileName = ("d:\proyecto\Arte3" & ".rtf")
PicArte.Picture = LoadPicture("d:\proyecto\lite2"& ".bmp")
End Sub

Private Sub Form_Load()
'Inicializar variable con cero
'Autor: 3roB
Contador = 0
End Sub
Private Sub Timer1_Timer()
Contador = Contador + 1
If Contador > 6 Then Contador = 1
archivo$ = "d:\proyecto\regresar" & Mid$(Str(Contador), 2, 1) & ".bmp"
CmdRegresar.Height = CmdRegresar.Height + 1
If CmdRegresar.Height > 100 ThenCmdRegresar.Height = 500
CmdRegresar.Picture = LoadPicture(archivo$)
-------------------------------------------------
End Sub
Private Sub Men10_Click()
RtbInformacion.SelFontSize = 10
End Sub

Private Sub Men12_Click()
RtbInformacion.SelFontSize = 12
End Sub

Private Sub Men14_Click()
RtbInformacion.SelFontSize = 14
End Sub

Private Sub Men18_Click()RtbInformacion.SelFontSize = 18
End Sub

Private Sub Men20_Click()
RtbInformacion.SelFontSize = 20
End Sub

Private Sub MenCentrar_Click()
RtbInformacion.SelAlignment = rtfCenter
End Sub

Private Sub MenFormato_Click()

End Sub

Private Sub MenCursiva_Click()
RtbTexto.SelItalic = Not RtbTexto.SelItalic
End Sub

Private Sub MenDerecha_Click()
RtbInformacion.SelAlignment = rtfRight
End SubPrivate Sub MenFondo_Click()
CboColor.Visible = True
MenFondo.Checked = True
MenTexto.Checked = False
End Sub

Private Sub MenIzquierda_Click()
RtbInformacion.SelAlignment = rtfLeft
End Sub

Private Sub MenNegrita_Click()
RtbInformacion.SelBold = Not RtbTexto.SelBold
End Sub

Private Sub MenRegresar_Click()
FrmPrincipal.Show
End Sub

Private SubMMControl1_Done(NotifyCode As Integer)

End Sub

Private Sub MenSubrayado_Click()
RtbInformacion.SelUnderline = Not RtbTexto.SelUnderline
End Sub

Private Sub MenTexto_Click()
CboColor.Visible = True
MenTexto.Checked = True
MenFondo.Checked = False
-------------------------------------------------
End Sub
'Se da una variable
Dim NumeroC As String
Private Sub CmbCulturas_Change()...