主题：如何让三个表刚好填充好窗口，右边没有空白

这个没办法，你的图片的大小是固定的。除非你动态裁剪图片，然后设置，如

Dim file As String = "d:\test.jpg"
Dim img As image = getImage(file)
Dim bmp As new bitmap(img, basemainform.width-10, 50)
RibbonTabs("Common").Groups("ClipBoard").Items("Paste").LargeImage = bmp