Msgbox-ovi na srpskom u vb 6.0

[Walter]

Pozdrav,
1.Nikako ne mogu da nateram vb 6.0 da umesto Yes/No u msgbox-ovima ubaci Da/Ne.
2.Ako neko zna adresu gde bih mogao naci ikone za toolbar(copy,cut,paste) u klasicnom programu,neka mi kaze.

[Sasa Vitorovic]

Mnogo mi je vazno,mora da neko zna.

[Shadow]

Ovako :

1. To ne mozes ni da uradis sa standardnim msgbox-om , vec moras da napravis posebnu formu .

2. Ne vidim u cemu je problem ! Sve ikone dolaze sa samim VB 6.0 ! Folder Visual Studio\Common\Graphics\Icons ! Ukoliko ih nema tamo provjeri da li si prilikom instalacije VS-a instalirao graficke datoteke !

Nadam se da je ovo pomoglo !
Shadow

Mnogo mi je vazno,mora da neko zna.

Ova e funkcija koja raboti vo VB5 mozda ke mozes da ja prilagodis za VB6.
Public Function Poraka(Text As String, S As String, Optional ByRef AktivnaKontrola As DBGrid) As String
Dim X As Integer
Dim conKontrola As CommandButton
strOdgovorNaPoraka = ""
X = 1
frmPoraka.lblPoraka = Text
'POSTAVUVANJE NA VIDLIVITE KONTROLI
For Each conKontrola In frmPoraka.Kontroli
conKontrola.Visible = conKontrola.Visible Or CBool(Mid$(S, X, 1))
X = X + 1
Next
frmPoraka.Show vbModal
Do While strOdgovorNaPoraka = ""
DoEvents
Loop
Poraka = strOdgovorNaPoraka
'KRIENJE NA SITE KONTROLI
For Each conKontrola In frmPoraka.Kontroli
conKontrola.Visible = False
Next
frmPoraka.Hide
'MDIfrmGlavnaForma.ActiveForm.SetFocus
'MDIfrmGlavnaForma.ActiveForm.Print MDIfrmGlavnaForma.ActiveForm.ActiveControl.Name
'AktivnaKontrola.SetFocus
End Function

Eve ti edno povikuvanje
Call Poraka("ne postoi takov komintent !", "001", conAktivnaKontrola)