...
Private Sub ShowButton(ByVal BtnType As MessageBoxButtons)
 
        BSize = New Size(58, 24)
 
        If BtnType = MessageBoxButtons.AbortRetryIgnore Then
            BSize = New Size(58, 24)
            CmdAbort = New Button
            Dim BLocation As New Point(248, 120)
            Call CommanSet(CmdAbort, "&Abort", BSize, BLocation)
            BLocation = Nothing
            CmdRetry = New Button
            BLocation = New Point(308, 120)
            Call CommanSet(CmdRetry, "&Retry", BSize, BLocation)
            BLocation = Nothing
            CmdIgnore = New Button
            BLocation = New Point(368, 120)
            Call CommanSet(CmdIgnore, "&Ignore", BSize, BLocation)
            BLocation = Nothing
        End If
 
      If BtnType = MessageBoxButtons.OK Then
            BSize = New Size(58, 24)
            CmdOk = New Button
            Dim BLocation As New Point(368, 120)
            Call CommanSet(CmdOk, "&Ok", BSize, BLocation)
            BLocation = Nothing
            Exit Sub
        End If
 
        If BtnType = MessageBoxButtons.OKCancel Then
            BSize = New Size(58, 24)
            CmdYes = New Button
            Dim BLocation As New Point(308, 120)
            Call CommanSet(CmdYes, "&Ok", BSize, BLocation)
            BLocation = Nothing
            CmdNo = New Button
            BLocation = New Point(368, 120)
            Call CommanSet(CmdNo, "&Cancel", BSize, BLocation)
            BLocation = Nothing
            Exit Sub
        End If
 
        If BtnType = MessageBoxButtons.RetryCancel Then
            BSize = New Size(58, 24)
            CmdYes = New Button
            Dim BLocation As New Point(308, 120)
            Call CommanSet(CmdYes, "&Retry", BSize, BLocation)
            BLocation = Nothing
            CmdNo = New Button
            BLocation = New Point(368, 120)
            Call CommanSet(CmdNo, "&Cancel", BSize, BLocation)
            BLocation = Nothing
            Exit Sub
        End If
 
        If BtnType = MessageBoxButtons.YesNo Then
            BSize = New Size(58, 24)
            CmdYes = New Button
            Dim BLocation As New Point(308, 120)
            Call CommanSet(CmdYes, "&Yes", BSize, BLocation)
            BLocation = Nothing
            CmdNo = New Button
            BLocation = New Point(368, 120)
            Call CommanSet(CmdNo, "&No", BSize, BLocation)
            BLocation = Nothing
            Exit Sub
        End If
 
        If BtnType = MessageBoxButtons.YesNoCancel Then
            BSize = New Size(58, 24)
            CmdYes = New Button
            Dim BLocation As New Point(248, 120)
            Call CommanSet(CmdYes, "&Yes", BSize, BLocation)
            BLocation = Nothing
            CmdNo = New Button
            BLocation = New Point(308, 120)
            Call CommanSet(CmdNo, "&No", BSize, BLocation)
            BLocation = Nothing
            CmdCancel = New Button
            BLocation = New Point(368, 120)
            Call CommanSet(CmdCancel, "&Cancel", BSize, BLocation)
            BLocation = Nothing
        End If
 
    End Sub
 
    ....