How To Keep Running Program When Other Command Button Clicked

Hello Brother,

I need your golden hands to solved the code as below,

Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub FillBottleA()
Application.ScreenUpdating = False
    Const valIncrement As Double = 2
    Dim intMax As Integer
    Dim intIndex As Integer
    Dim intCalc As Double
    
    intMax = 50
    
    For intIndex = 1 To intMax
        DoEvents
        intCalc = intCalc + valIncrement
        UserForm1.TextBox1 = Round(intCalc, 1)
        Sleep 100
    Next
Application.ScreenUpdating = True
End Sub

Sub FillBottleB()
Application.ScreenUpdating = False
    Const valIncrement As Double = 2
    Dim intMax As Integer
    Dim intIndex As Integer
    Dim intCalc As Double
    
    intMax = 50
    
    For intIndex = 1 To intMax
        DoEvents
        intCalc = intCalc + valIncrement
        UserForm1.TextBox2 = Round(intCalc, 1)
        Sleep 100
    Next
Application.ScreenUpdating = True
End Sub

This code will use to run in UserForm1 under CommandButton1 and CommandButton2, please see the file attachment for detail.
My question is,
1. When the program is running under CommandButton1, then I clicked CommandButton2, the running program will be stopped, not continues running.
What code should i write to protect the running program if other CommandButton will be clicked?
2. If the program running in UserForm1, then i moved to UserForm2, also the program stopped running.
What code should i write it to protect the program to continues running though i opened other UserForm?

Thanks in advance for any small helps and efforts.

Best Regards,
Iqbal

Hi Iqballud,

From what I understand try putting the following code.

UserForm1.Show vbModeless

Does the 2 commands do 2 separate things or in conjunction?

I hope this helps.

Thanks,
Fonzie

Hi Fonzie and Tony,

Sorry to late reply, just came back from work.
Fonzie...thank youuu...soo...muchhh...
Your code is working nicely
Thanks brothers, i will add reputation to all of you.

Best regards,
Iqbal

Fonzie, the 2 commands to do 2 separate things, not conjunction.
I will manipulate the code by add some condition, i.e. "if sheet1.[A1]=1 then...".
May be this is the way how to solve the problem.

Best Regards,
Iqbal