Private Sub Command1_Click()
    If S1.Visible = True Then        
        S2.Visible = True            
        S1.Visible = False            
        
        ElseIf S2.Visible = True Then   
        S3.Visible = True               
        S1.Visible = False                 
        S2.Visible = False
        Else
        S1.Visible = True
        S2.Visible = False
        S3.Visible = False
              End If
              

    If S1.Visible = True Then          如果s1为真
        S2.Visible = True              S2为真
        S1.Visible = False             S1为假
    ElseIf S2.Visible = True Then      否则如果S2为真
        S3.Visible = True              S3为真
        S1.Visible = False             S1为假
        S2.Visible = False             S2为假
    Else                               否则
        S1.Visible = True              S1为真
        S2.Visible = False             S2为假
        S3.Visible = False             S3为假
    End If

代码要这样缩进才好看。
有三个 控件，每点击一次按钮，这三个控件依次显示，同时只显示一个。
第一段代码中，少了一个控件的操作。

非常谢谢！

风版，这种帖子也回，不得累死？

没事时就回下。

这种懒得过分了，也就你好心给解释。
都说用VB的是懒人，聪明人用java，真正编程用VC
VB本就是懒人用的，结果有人还要懒。 唉唉