I can't explain in English, so I do the code as belows. Private Sub Button1_Click Private Sub Button2_Click Private Sub Button3_Click xui.MsgboxAsync("Have a niceday" , "B4X") End Sub