Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub bFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bFile.Click
OD = New OpenFileDialog
With OD
.Filter = "FoxPro Programs|*.prg|FoxPro Tables|*.dbf|Applications|*.exe"
.Title = "Open Fox Pro Program"
.ShowDialog()
End With
If OD.FileName <> "" Then
Try
txtPRG.Text = OD.FileName
Catch ex As Exception
MsgBox("Error: " & ex.Message)
End Try
End If
End Sub