hi,

i'm using flash file to open to next screen but i have no idea how to do that using the code...below is my code. i'm having problem to code at red highlighted area.How do i make it to link or show the next form once the button clicked.
PLEASE HELP me if anyone know !!!

Private Sub PlayFlash()
        FlashObj.Stop()
        FlashObj.Movie = MultimediaPath & "\Ezy-Pay.swf"
        FlashObj.Play()
    End Sub
    Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PlayFlash()
    End Sub
    Private Sub Main_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        frmPleaseWait.Close()
        frmDarkXparent.Close()
    End Sub
    Private Sub FlashObj_FSCommand(ByVal sender As Object, ByVal e As AxShockwaveFlashObjects._IShockwaveFlashEvents_FSCommandEvent) Handles FlashObj.FSCommand

        If e.command = "LinkApp" Then
            Select Case e.args
                Case "1"
                    Call UsernameKey("Visa")
                Case "2"
                    Call UsernameKey("Master")
Case "3"
                    Call UsernameKey("Meps")
                End Select
        End If

        Call resettimer()

    End Sub


   Private Function UsernameKey(ByVal str As String)

        If UsernameKey("Visa") Or UsernameKey("Master") Or UsernameKey("Meps") Then
            ProceedToNextScreen()
        End If

        Return ("")

        Call resettimer()
    End Function

 Private Sub ProceedToNextScreen()
    frmDialogBig_Notice.ShowDialog()
     End Sub

Help plssssssss !!!!!!

See if this helps.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        UsernameKey("Visa")
    End Sub
    Private Sub UsernameKey(ByVal str As String)
        If str = "Visa" OrElse str = "Master" OrElse str = "Meps" Then
            MsgBox(str)
        End If
    End Sub

Not sure why you were using a Function since it did not have to return anything, but most of all, you were checking the Function for a value instead of checking "str" for the value.

THANK YOU SOOOOOOOOOO MUCH THANK YOU THANK YOU THANK YOU.....its working now
thanks for your kind help

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.