Кулинарная книга

        End Sub 

    Private Sub Combo_cat2_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combo_cat2.SelectedIndexChanged 

        Dim g As Integer

        DataRecept.MoveFirst()

        If Combo_cat2.SelectedItem() = DataRecept.Fields("Категория").Value Then 

            DataRecept.MoveNext()

        Else : DataRecept.MoveNext()

        End If

    End Sub 

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk 

    End Sub 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim picture As String

        OpenFileDialog1.ShowDialog()

        Text_pic.Text = OpenFileDialog1.FileName 
 

    End Sub 

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim formMain As New Form2()

        Me.Hide()

    End Sub

End Class 

Форма 4. 

Public Class Form4

    Inherits System.Windows.Forms.Form 

Private Sub Form4_closing(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Closed

        End

    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        End

    End Sub 
 

Форма 5.(диалоговое окно) 

Public Class close_form

    Inherits System.Windows.Forms.Form

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        End

    End Sub 

Список  изученной литературы.

1. Visual Basic.NET / учебный курс / В. Долженков, М. Мозговой – 2003.
2. Понамарев В. А. Visual Basic.NET. Экспресс-курст – 2003.

   3.   Гарнаев А. Ю. Visual Basic.NET: разработка приложений – 2002