Private Sub Btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Save.Click Me.SaveDoc() If Me.ProcessWhenDone.Checked = False Then Me.PrepareTarget(Me.RecPointer) Me.MoveDoc(Me.DocList(Me.RecPointer, 0), Me.DocList(Me.RecPointer, 1), Me.DocList(Me.RecPointer, 6)) End If Me.GetNextDoc() Me.ControlFocus() End Sub Private Sub GetNextDoc() RecPointer = RecPointer + 1 Me.DocType.Text = Me.DocList(Me.RecPointer, 2) Me.DocDate.Text = Me.DocList(Me.RecPointer, 3) Me.Field1.Text = Me.DocList(Me.RecPointer, 0) Me.Field3.Text = Me.DocList(Me.RecPointer, 4) Me.Field4.Text = Me.DocList(Me.RecPointer, 5) Me.AxAcroPDF1.LoadFile(Me.DocList(Me.RecPointer, 0)) ' Me.AxAcroPDF1.setCurrentHighlight(305, 420, 705, 650) End Sub Private Sub ControlFocus() If Me.Master_DocType_Check.Checked = False Then Me.DocType.Focus() 'Me.ActiveControl("DocType") Else If Me.Master_DocDate_Check.Checked = False Then Me.DocDate.Focus() Else Me.Field3.Focus() End If End If End Sub