Zna li tko zašto mi ovo ne radi, imam jedan modul i formu :
'file - Module1
'znači ovo je ubačeno u modul imenom module1
'r1 je textbox za upis, a b1 je label u kojem se mora ispisat
Sub Postavime(ByRef b1 As String)
If r1 > "6" Then b1 = "0"
If r1 = "6" Then b1 = "0"
If r1 = "5" Then b1 = "1"
If r1 = "4" Then b1 = "2"
If r1 = "3" Then b1 = "3"
If r1 = "2" Then b1 = "4"
MsgBox "lol"
End Sub
''A ovo je u formi gumb Command1
Private Sub Command1_Click()
Call Postavime(b1)
End Sub
I kaj je najbolje msgbox mi očitava na klik, znači da dobro radi,
samo neće mi izračunati ovo, kaj još moram da mi
se ovo ispiše, niš se ne pojavljuje u labelu (b1). Zašto?