Public Class FormPrompt
    Public Sub IncreaseBar(ByVal i_iValue As Integer)
        progressBar1.Value = i_iValue
    End Sub
End Class