Public Class main

    Public db_host As String
    Public db_user As String
    Public db_pass As String
    Public db_name As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub



    Private Sub generate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles generate.Click, generate.Click



        Dim filename As String
        Dim location As String
        Dim result As String
        filename = Fname.Text
        location = loc.Text
        result = res.Text



        res.Text = "$db_host=" + Chr(34) + db_host + Chr(34) + vbCr +
                   "$db_user=" + Chr(34) + db_user + Chr(34) + vbCr +
                   "$db_pass=" + Chr(34) + db_pass + Chr(34) + vbCr +
                   "$db_name=" + Chr(34) + db_name + Chr(34) + vbCr +
                   vbTab + "$link = mysql_connect($db_host, $db_user, $db_pass)" + vbCr +
                   vbTab + "or die('Could not connect: ' . mysql_error());" + vbCr +
                   vbTab + "mysql_select_db($db_name) or die('Could not select database');"

    End Sub

    Private Sub db_change_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles db_change.Click
        dbchange.Show()

    End Sub
End Class