проверено и работает, в следующий раз, пожалуйста, приложите немного больше усилий в своем исследовании
при нагрузке:
Me.KeyPreview = True
при нажатии клавиши:
If e.Alt AndAlso e.KeyCode = Keys.S Then
if RB1.checked = true then
RB2.checked = true
elseif RB2.checked = true
RB3.checked = true
elseif RB3.checked = true
RB1.checked = true
end if
end if
Избегание РБпроверка:
при нагрузке:
Me.KeyPreview = True
dim vall as integer = 1
при нажатии клавиши:
If e.Alt AndAlso e.KeyCode = Keys.S Then
select case vall
case 1
RB2.checked = true
vall = 2
case 2
RB3.checked = true
vall = 3
case 3
RB1.checked = true
vall = 1
end select
end if