Private Sub Command1_Click() Dim Num As Byte Num = Int(255 - 1) * Rnd + 0 Text1.Text = NumEnd Sub
If Val(frmIntereses.txtTipo.Text) <= 0 Then