Děkuji všem za rady, nakonec jsem to vymyslel tak, že jsem nahradil YesNo příkazem OkCancel a už to na mně mluví angličtinou. Původní:
If MsgBox(" Update Saved data?" & "", MsgBoxStyle.YesNo, "Save") = MsgBoxResult.Yes Then
FileOpen(1, My.Application.Info.DirectoryPath & "\mem\mem1.dat", OpenMode.Output)
Po úpravě:
If MsgBox(" Update Saved data?" & "", MsgBoxStyle.OkCancel, "Save") = MsgBoxResult.Ok Then
FileOpen(1, My.Application.Info.DirectoryPath & "\mem\mem1.dat", OpenMode.Output)
Přeji všem hezký den, Petr
|