Private Function GetResourceBitmap(ByVal strImageName As String) As System.Drawing.Bitmap
Dim obj As Object = My.Resources.ResourceManager.GetObject(strImageName, My.Resources.Culture)
Return (CType((obj), System.Drawing.Bitmap))
End Function
Private Function GetResourceImage(ByVal strImageName As String) As System.Drawing.Image
Dim obj As Object = My.Resources.ResourceManager.GetObject(strImageName, My.Resources.Culture)
Return (CType((obj), System.Drawing.Image))
End Function
private sub rbtn_click(sender as object,e as eventargs)handles rbtn1.click,rbtn2.click,rbtn3.click,rbtn4.click
seect case tihao
case 16
picbigbmp.image=GetResourceImage("105_" & sender.name.Replace("RBtn",""))
picbigbmp.visible=true
end select
end sub

btn1.click 可以无限往后加，不过如果用控件组就更好了，只要Redim一次就可以加N多个。