Dim matches As System.Text.RegularExpressions.MatchCollectionDim match As System.Text.RegularExpressions.MatchDim groups As System.Text.RegularExpressions.GroupCollectionmatches = System.Text.RegularExpressions.Regex.Matches(docname, "\b.*\..*\.(.)\b") '*****-****: $1/$2 = tracker9864/rev6'matches = System.Text.RegularExpressions.Regex.Matches(docname, "\b(.{7})(.{3}).*\b") 'NNNNNNRRR*: $1/$2 = tracker/9864If matches.count>0 Then For Each match In matches  groups = match.Groups ' parenthesis 1  iProperties.Value("Project", "Revision Number") = groups.item(1).Value  MsgBox("ÚSPĚCH - zapsána revize: " & groups.item(1).Value, OK, "REVIZE") Next Else MsgBox("Revize se nepovedla - zkus to opravit", OK, "REVIZE")End If 

Vyměnit MSGBOXy za tyto:
Imports System.Threading.TasksDim timeout = 0.5 ' secs - JAK DLOUHO M� B�T VID�NADim msg As New Form() With { .Enabled = False }Task.Delay(TimeSpan.FromSeconds(timeout)).ContinueWith(  Sub(t)     msg.Close()   End Sub ,TaskScheduler.FromCurrentSynchronizationContext())MessageBox.Show(msg, "�chp�ch", "TITULEK")'MessageBox.Show(msg, "ZDE JE TO CO CHCI ZD�LIT", "ZDE JE NADPIS ZPR�VY")
Jde to vůbec zkombinovat????