CREATE TABLE `autos` (
  `ID` double NOT NULL,
  `Marca` varchar(40) DEFAULT NULL,
  `MarcaID` int(10) NOT NULL,
  `Modelo` varchar(40) DEFAULT NULL,
  `ModeloID` int(10) NOT NULL,
    PRIMARY KEY (`ID`),
  UNIQUE KEY `ID_UNIQUE` (`ID`)
) 

CREATE TABLE `au1` (
  `MarcaId` int(5) NOT NULL,
  `Marca` varchar(20) DEFAULT NULL,
  `ModeloId` int(5) NOT NULL,
  `Modelo` varchar(20) DEFAULT NULL,
    PRIMARY KEY (`MarcaId`,`ModeloId`)
)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
		Dim archivo As String = "C:\Users\Documents\WindowsApplication4\PDF"
		AxAcroPDF1.UseWaitCursor = True
		AxAcroPDF1.src = archivo
		AxAcroPDF1.UseWaitCursor = False
	End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
		Dim abrir As New OpenFileDialog
		Dim archivo As String = "C:\Users\Documents"
		With abrir
			.InitialDirectory = archivo
			.Filter = "ALL|*.* | PDF|*.pdf"
			.FilterIndex = 0
			.RestoreDirectory = True
			.Multiselect = False
			.AddExtension = True
			.CheckPathExists = True
			If .ShowDialog = DialogResult.OK Then
				AxAcroPDF1.UseWaitCursor = True
				AxAcroPDF1.src = .FileName
				AxAcroPDF1.UseWaitCursor = False
			End If

		End With
		
	End Sub

Public Class MDI_principal
   Private Sub MenuStrip_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles MenuStrip.ItemClicked
        Try
            Dim form As New frmSubMenus
            form.MdiParent = Me
            form.Text = e.ClickedItem.Text
            form.Show()
        Catch ex As Exception
            MsgBox("ERROR." + ex.Message)
        End Try
    End Sub
End Class

Public Class frmSubMenus
    Private Sub frmSubMenus_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Each ctr As Control In Me.Controls
            Me.ToolTip1.SetToolTip(ctr, ctr.ToString)
        Next
        Try
            Dim submenu As New ArrayList()
            submenu = MenuSecundario(Me.Text)
            If Not IsNothing(submenu) Then
                For Each str As String In submenu
                    MsgBox(str)
                    MenuStrip1.Items.Add(str)
                Next
            End If
        Catch ex As Exception
            MsgBox("ERROR." + vbLf + ex.Message + vbLf + ex.ToString)
        End Try
 End Sub

Public Function MenuSecundario(ByVal txt As String) As ArrayList
        Dim submenu As ArrayList = Nothing
        Select Case txt
            Case "Ventas"
                submenu = New ArrayList
                submenu.Add("Cotizacion")
                submenu.Add("Pedidos")
                submenu.Add("Clientes")
                submenu.Add("por Autorizar")
                submenu.Add("Calendario")
                submenu.Add("Estadisticas")
                Exit Select

           Case "Compras"
                submenu = New ArrayList
                submenu.Add("Pendientes")
                submenu.Add("Administrador")
                submenu.Add("Productos")
                submenu.Add("Proveedores")
                submenu.Add("Clientes")
                submenu.Add("Calendario")
                submenu.Add("Estadisticas")
                Exit Select

            Case Else
                Exit Select

        End Select
        Return submenu
    End Function

Public Class Form2
Public WithEvents monthcalendar As New MonthCalendar

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 Dim monthcalendar As New MonthCalendar
 Me.Controls.Add(monthcalendar)
 DataGridView1.Hide()
 With monthcalendar
       .Name = "monthCalendar"
       .Show()
       .Enabled = True
       .ShowWeekNumbers = True
End With
End Sub

Private Sub monthcalendar_DateSelected(sender As Object, e As DateRangeEventArgs) Handles monthcalendar.DateSelected
        MsgBox(e.Start.ToString)
        monthcalendar.Hide()
        
End Sub

End Class